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PROTEUS TWO-DIMENSIONAL 
NAVIER-STOKES COMPUTER CODE - VERSION 2.0 

Volume 3 - Programmer's Reference 


Charles E. Towne, John R. Schwab, Trong T. Bui 


National Aeronautics and Space Administration 
Lewis Research Center 
Cleveland, Ohio 


SUMMARY 

A computer code called Proteus has been developed to solve the two-dimensional planar or 
axisymmetnc, Reynolds-averaged, unsteady compressible Navier-Stokes equations in strong conservation 
law form. The objective in this effort has been to develop a code for aerospace propulsion applications that 
is easy to use and easy to modify. Code readability, modulanty, and documentation have been emphasized. 

The governing equations are written in Cartesian coordinates and transformed into generalized 
nonorthogonal body-fitted coordinates. They are solved by marching in time using a fully-coupled 
aUernatmg-direction-implicit solution procedure with generalized first- or second-order time differencing, 
lhe boundary conditions are also treated implicitly, and may be steady or unsteady. Spatially periodic 
boundary condmons are also available. All terms including the diffusion terms, are linearized using 
second-order Taylor series expansions. Turbulence is modeled using either an algebraic or two-equation 
eddy viscosity model. 

The program contains many operating options. The governing equations may be solved for two- 
dimensional planar flow, or axisymmetnc flow with or without swirl. The thin-layer or Euler equations 
may be solved as subsets of the Navier-Stokes equations. The energy equation may be eliminated by the 
assumption of constant total enthalpy. Explicit and implicit artificial viscosity may be used to damp pre- 
osc ^ a ^ ons m supersonic flow and to minimize odd-even decoupling caused by central 
spatial differencing of the convective terms in high Reynolds number flow. Several time step options are 
available for convergence acceleration, including a locally variable time step and global time step cycling. 
Simple Cartesian or polar grids may be generated internally by the program. More complex geometries 
require an externally generated computational coordinate system. 

The documentation is divided into three volumes. Volume 1 is the Analysis Description, and presents 
the equations and solution procedure used in Proteus. It describes in detail the governing equations, the 
turbulence model the linearization of the equations and boundary conditions, the time and space differ- 
encing formulas, the ADI solution procedure, and the artificial viscosity models. Volume 2 is the User's 
Guide, and contains information needed to run the program. It describes the program's general features, 
the input and output, the procedure for setting up initial conditions, the computer resource requirements 
the diagnostic messages that may be generated, the job control language used to run the program, and se- 
veral test cases. Volume 3, the current volume, is the Programmer's Reference, and contains detailed in- 
formation useful when modifying the program. It describes the program structure, the Fortran variables 
stored in common blocks, and the details of each subprogram. 

Version 1.0 of the two-dimensional Proteus code was released in late 1989. The current documentation 
covers Version 2.0, released in early 1992. 
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1.0 INTRODUCTION 


Much of the effort in applied computational fluid dynamics consists of modifying an existing program 
for whatever geometries and flow regimes are of current interest to the researcher. Unfortunately, nearly 
all of the available non-proprietary programs were started as research projects with the emphasis on dem- 
onstrating the numerical algorithm rather than ease of use or ease of modification. The developers usually 
intend to clean up and formally document the program, but the immediate need to extend it to new ge- 
ometries and flow regimes takes precedence. 

The result is often a haphazard collection of poorly written code without any consistent structure. An 
extensively modified program may not even perform as expected under certain combinations of operating 
options. Each new user must invest considerable time and effort in attempting to understand the underlying 
structure of the program if intending to do anything more than run standard test cases with it. The user's 
subsequent modifications further obscure the program structure and therefore make it even more difficult 
for others to understand. 

The Proteus two-dimensional Navier-Stokes computer program is a user-oriented and easily-modifiable 
flow analysis program for aerospace propulsion applications. Readability, modularity 7 , and documentation 
were primary objectives during its development. The entire program was specified, designed, and imple- 
mented in a controlled, systematic manner. Strict programming standards were enforced by immediate peer 
review of code modules; Kemighan and Plauger (1978) provided many useful ideas about consistent pro- 
gramming style. Every subroutine contains an extensive comment section describing the purpose, input 
variables, output variables, and calling sequence of the subroutine. With just three clearly-defined ex- 
ceptions, the entire program is written in ANSI standard Fortran 77 to enhance portability. A master ver- 
sion of the program is maintained and periodically updated with corrections, as well as extensions of general 
interest (e.g., turbulence models.) 

The Proteus program solves the unsteady, compressible, Reynolds-averaged Navier- Stokes equations in 
strong conservation law form. The governing equations are written in Cartesian coordinates and trans- 
formed into generalized nonorthogonal body-fitted coordinates. They are solved by marching in time using 
a fully-coupled altemating-direction-implicit (ADI) scheme with generalized time and space differencing 
(Briley and McDonald, 1977; Beam and Warming, 1978). Turbulence is modeled using either the Baldwin 
and Lomax (1978) algebraic eddy-viscosity model or the Chien (1982) two-equation model. All terms, in- 
cluding the diffusion terms, are linearized using second-order Taylor series expansions. The boundary 
conditions are treated implicitly, and may be steady or unsteady. Spatially periodic boundary' conditions 
are also available. 

The program contains many operating options. The governing equations may be solved for two- 
dimensional planar flow, or axisymmetric flow with or without swirl. The thin-layer or Euler equations 
may be solved as subsets of the Navier-Stokes equations. The energy equation may be eliminated by the 
assumption of constant total enthalpy. Explicit and implicit artificial viscosity may be used to damp pre- 
and post-shock oscillations in supersonic flow and to minimize odd-even decoupling caused by central 
spatial differencing of the convective terms in high Reynolds number flow. Several time step options are 
available for convergence acceleration, including a locally variable time step and global time step cycling. 
Simple grids may be generated internally by the program; more complex geometries require external grid 
generation, such as that developed by Chen and Schwab (1988). 

The documentation is divided into three volumes. Volume 1 is the Analysis Description, and presents 
the equations and solution procedure used in Proteus . It describes in detail the governing equations, the 
turbulence model, the linearization of the equations and boundary conditions, the time and space differ- 
encing formulas, the ADI solution procedure, and the artificial viscosity models. Volume 2 is the User's 
Guide, and contains information needed to run the program. It describes the program s general features, 
the input and output, the procedure for setting up initial conditions, the computer resource requirements, 
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the diagnostic messages that may be generated, the job control language used to run the program, and se- 
veral test cases. Volume 3, the current volume, is the Programmer's Reference, and contains detailed in- 
formation useful when modifying the program. It describes the program structure, the Fortran variables 
stored in common blocks, and the details of each subprogram. 

Version 1.0 of the two-dimensional Proteus code was released in late 1989 (Towne, Schwab, Benson, 
and Suresh, 1990). The current documentation covers Version 2.0, released in early 1992. 

The authors would like to acknowledge the significant contributions made by their co-workers. Tom 
Benson provided part of the original impetus for the development of Proteus , and did the original coding 
of the block tri-diagonal inversion routines. Simon Chen did the original coding of the Baldwin-Lomax 
turbulence model, and consulted in the implementation of the nonlinear coefficient artificial viscosity model. 
William Kunik developed the original code for computing the metrics of the generalized nonorthogonal grid 
transformation. Frank Molls has created separate diagonalized and patched-grid versions of the code. 
Ambady Suresh did the original coding for the second-order time differencing and for the nonlinear coeffi- 
cient artificial viscosity model. These people, along with Dick Cavicchi, Julie Conley, Jason Solbeck, and 
Pat Zeman, have also run many debugging and verification cases. 


6 1.0 Introduction 


Proteus 2-D Programmer's Reference 



2.0 PROGRAM STRUCTURE 


2.1 FLOWCHART 

In this section, a flow chart is presented showing the overall sequence of tasks performed by the two- 
dimensional Proteus computer code. Depending on the various options used in a particular run, of course, 
some of the elements in the chart may be skipped. 



Figure 2.1 - Flow chart for the 2-D Proteus computer code. 
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Figure 2.1 - Continued. 
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Figure 2.1 - Concluded. 
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2.2 SUBPROGRAM CALLING TREE 


In this section, the calling sequence for the various subprograms in the Proteus 2-D code is shown using 
a tree structure. The subheadings correspond to the elements of the flow chart shown in the previous sec- 
tion. The main program, listed in the first column, calls the subprograms in the second column, which in 
turn call those in the third column, etc. 1 For any given case, of course, some of these routines will not be 
used. The subprograms needed for a particular case will depend on the combination of input parameters 
being used. The individual subprograms are described in detail in Section 4.0. 


INITIALIZATION 

Read and print input. 

MAIN 

INPUT 

ISAMAX 


Get grid and metric parameters. 

MAIN 

GEOM 

PAK 

METS 

ROBTS 

CUBIC 

OUTPUT 

PRTOUT 


Get initial flow field. 


MAIN 

INITC 

REST 

INIT 

FTEMP 

EQSTAT 

TURBBL 

KEINIT 

YPLUSN 

METS 

VORTEX 

BLOUT1 

BLIN1 

BLOUT2 

BLIN2 

TURBBL 

YPLUSN 

PRODCT 

VORTEX 

ISAMAX 

ISAMIN 

1SRCHEQ 

ISRCHEQ 

ISAMAX 

ISAMIN 

ISRCHEQ 

ISRCHEQ 

VORTEX 

BLOUT1 

BLIN1 

BLOUT2 

BLIN2 

VORTEX 

ISAMAX 

ISAMIN 

ISRCHEQ 

ISRCHEQ 

ISAMAX 

ISAMIN 

ISRCHEQ 

ISRCHEQ 

Set point-by-p 

oint boundary condition values. 

MAIN 

BCSET 



i Throughout this Programmer's Reference, elements of the Fortran language, such as input variables and subpro- 
gram names, are printed in the text using uppercase letters. However, in most implementations, Fortran is case- 
insensitive. The Proteus source code itself is written in lowercase. 
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SET UP FOR TIME STEP 


Compute time step size. 

MAIN 

TIMSTP 

ISAMAX 


Reset boundary conditions if time-dependent. 

MAIN 

TBC 




FILL BLOCK COEFFICIENT MATRIX 

Add extra data line at N + 1 if spatially periodic 

: in sweep direction. 


MAIN 

EXEC 

PERIOD 



Compute coefficients of governing equations. 


MAIN 

EXEC 

EQSTAT 

COEFC 

COEFX 

COEFY 

COEFE 

COEFZ 


Add boundary conditions. 



MAIN 

EXEC 

EQSTAT 

BCGEN 

i 

BCELIM 

BCQ 

BCUVEL 

BCWEL 

BCWVEL 

BCPRES 

BCTEMP 

BCDENS 

BCVDIR 

BCF 

ISRCHEQ 

BLKOUT 

SGEFA 

SGESL 


BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCMET 

BCGRAD 

BCFLIN 

BCMET 
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Compute residuals without artificial viscosity terms (sweep 1 only.) 


MAIN 

EXEC 

RESID 

SNRM2 

ISAMAX 

SASUM 


Add artificial viscosity. 

MAIN 

EXEC 

AVISC1 

AVISC2 

BLKOUT 

BLKOUT 



Compute residuals with artificial viscosity terms (sweep 1 only.) 


MAIN 


EXEC 

RESID 

SNRM2 

ISAMAX 

SASUM 



SOLVE DIFFERENCE EQUATIONS 


Perform matrix inversion. 


MAIN 

EXEC 

ADI 

BLKOUT 

BLK3P 

BLK3 

FILTER 

ISAMAX 

ISRCHEQ 

BLKOUT 




BLK4P 

BLK4 

FILTER 

ISAMAX 

ISRCHEQ 

BLKOUT 




BLK5P 

BLK5 

FILTER 

ISAMAX 

ISRCHEQ 

BLKOUT 



UPDATE 
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Update boundary values from first sweep. 


MAIN 

EXEC 

BVUP 

EQSTAT 

BCGEN 

BCQ 

BCMET 

BCGRAD 





BCUVEL 

BCMET 

BCGRAD 





BCWEL 

BCMET 

BCGRAD 





BCWVEL 

BCMET 

BCGRAD 





BCPRES 

BCMET 

BCGRAD 





BCTEMP 

BCMET 

BCGRAD 





BCDENS 

BCMET 

BCGRAD 





BCVDIR 

BCMET 

BCGRAD 





BCF 

BCFLIN 

BCMET 





ISRCHEQ 

BLKOUT 





SGEFA 

SGESL 




FINISH TIME STEP AND CHECK RESULTS 


Update auxiliary variables. 

MAIN EQSTAT I 

FTEMP | 

Update turbulence parameters. 

MAIN TURBBL VORTEX 

BLOUT1 ISAMAX 

ISAMIN 
ISRCHEQ 
BLIN1 ISRCHEQ 

BLOUT2 ISAMAX 

ISAMIN 
ISRCHEQ 
BLIN2 ISRCHEQ 

TURBCH YPLUSN VORTEX 

PRODCT 

EXECT PERIOD 

COEFS1 
BLK2P 
BLK2 
COEFS2 
BLK2P 
BLK2 

I UPDTKE 

Check for convergence, and get CPU time remaining. 

MAIN CONV ISAMAX 

TREMAIN 
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GENERATE OUTPUT 

Print flow field output. 

MAIN 

OUTPUT 

VORTEX 

PRTOUT 





OUTW 





Write plot and restart files. 

MAIN 

PLOT 

REST 





Print convergence history. 

MAIN 

PRTHST 




2.3 PROGRAMMING CONTENTIONS AND NOTES 
2.3.1 Computer & Language 

At NASA Lewis Research Center, Proteus is normally run on a Cray X-MP or Y-MP computer. With 
just three known exceptions, it is written entirely in ANSI standard Fortran 77 as described in the CF77 
Compiling System, Volume 1: Fortran Reference Manual (Cray Research, Inc., 1990). The first exception 
is the use of namelist input. With namelist input, it's relatively easy to create and/or modify input files, to 
read the resulting files, and to program default values. Since most Fortran compilers allow namelist input, 
its use is not considered a serious problem. The second exception is the use of ♦CALL statements to in- 
clude *COMDECK's, which contain the labeled common blocks, in most of the subprograms. This is a 
Cray UPDATE feature, and therefore the source code must be processed by UPDATE to create a file that 
can be compiled. 2 UPDATE is described in the UPDATE Reference Manual (Cray Research, Inc., 1988). 
Since using the *CALL statements results in cleaner, more readable code, and since many computer systems 
have an analogous feature, the +CALL statements were left in the program. The third exception is the use 
of lowercase alphabetic characters in the Fortran source code. This makes the code easier to read, and is 
a common extensi- i to Fortran 77. 

Several library' subroutines are called by Proteus. SGEFA and SGESL are Cray versions of LINPACK 
routines. SASUM and SNRM2 are Cray Basic Linear Algebra Subprograms (BLAS). ISAMAX, 
ISAMIN, and ISRCHEQ are Cray search routines. TREMAIN is a Cray Fortran library routine. All of 
these routines are described in detail in Section 4.0. In addition, SGEFA and SGESL are described in 
Volume 3: UNfCOS Math and Scientific Library Reference Manual (Cray Research, Inc., 1989b) and by 
Dongarra, Moler, Bunch, and Stewart (1979); SASUM, SNRM2, ISAMAX, ISAMIN, and ISRCHEQ are 
described in Volume 3: UN I COS Math and Scientific Library Reference Manual (Cray Research, Inc., 
1989b); and TREMAIN is described in Volume l: UNICOS Fortran Library Reference Manual (Cray Re- 
search, Inc., 1989a). 

The Proteus code is highly vectorized for optimal performance on the Cray. The coefficient generation 
is vectorized in the ADI sweep direction. Since the coefficient matrix is block tridiagonal, the equations are 
solved using the Thomas algorithm. This algorithm is recursive, and therefore cannot be vectorized in the 
sweep direction. However, by storing the coefficients and source terms in both coordinate directions, the 
algorithm can be vectorized in the non-sweep direction. This increases the storage required by the program, 
but greatly decreases the CPU time required for the ADI solution. 


2 See the example in Section 8.1 of Volume 2. 
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2.3.2 Fortran Variables 


Variable Names 

In developing Proteus , code readability has been emphasized. We have therefore attempted to choose 
Fortran variable names that are meaningful. In general, they either match the notation used in the analysis 
description in Volume 1, or are in some way descriptive of the parameter being represented. For example, 
RHO, U, V, W, and ET are the Fortran variables representing the density p, the velocities w, v, and w, and 
the total energy 7 per unit volume E T . 

Real and Integer Variables 

In general, the type (real or integer) of the Fortran variables follows standard Fortran convention (i.e., 
those starting with I, J, K, L, M, or N are integer, and the remainder are real.) There are, however, several 
variables that would normally be integer but are explicitly declared to be real. These are noted in the input 
description in Section 3.0 of Volume 2, and in the description of common block variables in Section 3.0 
of this volume. 

Array Dimensions 

Most Fortran arrays are dimensioned using dimensioning parameters. These parameters are set in 
COMDECK PARAMS1. This allows the code to be re-dimensioned simply be changing the appropriate 
parameters, and then recompiling the entire program. The dimensioning parameters are described in Sec- 
tion 6.2 of Volume 2. 

Initialization 

All of the input Fortran variables, plus some additional variables, are initialized in BLOCK DATA. 
Most of the input variables are initialized to their default values directly, but some are initialized to values 
that trigger the setting of default values in subroutine INPUT. On the Cray X-MP and Y-MP at NASA 
Lewis, all uninitialized variables have the value zero. There are no. known instances in the Proteus code, 
however, in which a variable is used before it is assigned a value. 

Nondimensionalization 


In general, Fortran variables representing physical quantities, such as RHO, U, etr., are nondimensional. 
Two types of nondimensionalizing factors are used - reference conditions and normalizing conditions. The 
factors used to nondimensionalize the governing equations in Section 2.0 of Volume 1 are called normalizing 
conditions. These normalizing conditions are defined by six basic reference conditions, for length, velocity, 
temperature, density, viscosity, and thermal conductivity, which are specified by the user. The normalizing 
conditions used in Proteus are listed in Table 3-1 of Volume 2. 

Note that for some variables, like pressure, the normalizing condition is dictated by the form of the 
governing equations once the six basic reference conditions are chosen. Unfortunately, some of these may 
not be physically meaningful or convenient for use in setting up input conditions. Therefore, some addi- 
tional reference conditions are defined from the six user-supplied ones. The reference conditions are listed 
in Table 3-2 of Volume 2. 

Throughout most of the Proteus code, physical variables are nondimensionalized by the normalizing 
conditions. For input and output, however, variables are nondimensionalized by the reference conditions 
because they are usually more physically meaningful for the user. The Fortran variables representing the 
reference conditions themselves are, of course, dimensional. 

One-Dimensional Addressing of Two-Dimensional Arrays 

In the solution algorithm used in Proteus , there are several instances in which the same steps must be 
followed in both ADI sweep directions. An example is the computation, in the COEFC, COEFX, 
COEFY, COEFZ, and COEFE routines, of the submatrices in the block tridiagonal coefficient matrix. 
These computations involve various flow variables, such as RHO, U, etc., and metric quantities, such as 
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XIX, XIY, etc. These are stored as two-dimensional arrays, with the two subscripts representing, in order, 
the indices in the computational £ and rj directions. For the first ADI sweep, values at various q indices 
are needed at a fixed rj index. For the second ADI sweep, the reverse is true. In order to use the same 
coding for both sweeps, a scheme for one -dimensional addressing of a two-dimensional array has been 
used. 3 

In Fortran, multi-dimensional arrays are actually stored in memory as a one-dimensional sequence of 
values, with the first subscript incremented over its range first, then the second subscript, etc. We take ad- 
vantage of this in Proteus . As a first step, the two-dimensional array is equivalenced to a one-dimensional 
array of the same total length. The one-dimensional array name is derived from the two-dimensional array 
name by adding a "l". Thus, letting F represent a typical two-dimensional array, 

dimension f (nlp,r»2p) 1 Cntotp) 
equivalence (f ( 1 , 1 ) , f 1 C 1 ) ) 

where NIP and N2P are dimensioning parameters specifying the dimension size in the £ and rj directions, 
and NTOTP is a dimensioning parameter equal to NIP x N2P. Next, we define a "step factor", which 
depends on the ADI sweep, and a "base index" which depends on the index in the non-sweep direction. 
For the first ADI sweep, 

istep = 1 

do 1000 i2 = 2,npt2-l 
iv = i2 

ibase = 1 + (i2-T)*nlp 


1000 continue 

And for the second ADI sweep, 

istep = nip 

do 2000 il = 2,nptl-l 

iv = il 

ibase = il 


2000 continue 

In both of the above examples, the loop is in the non-sweep direction and IV therefore represents the index 
in the non-sweep direction. Nested inside this loop is a loop in the sweep direction. In this inner loop, 
we can compute the equivalent one-dimensional address for a location in a two-dimensional array from the 
step factor, the base index, and the index in the sweep direction. Thus, for either ADI sweep, the inner loop 
looks like 


do 100 i = 2,npts-l 

iiml = ibase + istep*(i-2) 

ii = ibase + istep*(i-l) 

iipl = ibase + istep*i 


100 continue 

where I represents the index in the sweep direction. With this coding, for the first sweep 


3 An alternative would be to switch the order of the two subscripts in these arrays after each sweep. Since these 
arrays are used in many other areas of the code, this idea was discarded as being unnecessarily confusing. It should 
be noted, however, that there are some other arrays in Proteus in which the order of the two subscripts does switch 
between sweeps. This is described in the next subsection. 
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fKiiml) = f (il-1 ,i2) 
fl(ia ) = f ( il , i2) 
fl(iipl) = f(il+l,i2) 


And for the second sweep, 


fl(iiml) = f(il,i2-l) 
flCii ) = f(il,i2 ) 
fl(iipl) = f ( il , i2+l ) 


Multi- Dimensional Addressing of One- Dimensional Arrays 

As noted in the previous subsection, there are some arrays in Proteus in which the order of the first two 
subscripts does switch between ADI sweeps. These are the A, B, C, and S arrays, which represent the co- 
efficient submatrices and the source term subvector, and the METX, METY, and METT arrays, which 
represent the metric coefficients in the sweep direction. (A, B, and C are actually four-dimensional arrays, 
with the third and fourth subscripts representing the equation and dependent variable, respectively. Simi- 
larly, S is actually a three-dimensional array, with the third subscript representing the equation. Only the 
first two subscripts switch between sweeps, however.) For these arrays, the first subscript is the index in 
the non- sweep direction (i.e., the rj direction for the first sweep and the f direction for the second sweep), 
and the second is the index in the sweep direction (i.e., £ for the first sweep and rj for the second sweep.) 

These multi -dimensional arrays are actually equivalenced to corresponding one -dimensional arrays, 
stored in common blocks NUM1 and METRIC 1. 4 The equivalence is done in subroutine EXEC, which 
manages the solution of the mean flow equations, and in subroutine EXECT, which manages the solution 
of the k-t turbulence model equations. The multi-dimensional arrays and the appropriate dimensions, 
which depend on the ADI sweep, are then passed into lower level routines via the argument list. In the 
lower level routines they can then be referenced as normal, multi-dimensional arrays. 

Thus, in subroutine EXEC, we have 

dimension a( 1,1, l,l),b(l,l,l,l),c(l,l,l,l),s( 1,1,1) 
equivalence Camatl (l),a(l, 1,1,1)), CbmatlC 1 ),b(l, 1,1,1)), 

$ (cmatlC 1 ),c(l, 1,1,1)), (svectl Cl), s( 1,1,1)) 

dimension metxC 1 , 1 ) ,mety( 1,1) ,mett( 1,1) 
equivalence ( metxl ( 1 ) , metxC 1 , 1 ) ) , (metyl ( 1 ) , metyC 1 , 1 ) ) , 

$ (mettlC 1 ) , mett(l , 1 ) ) 

Here METX1, METY1, and METT1 are one-dimensional arrays of length NIP x N2P stored in common 
block METRIC I. Similarly, AMAT1, BMAT1, CMAT1, and SVECT1 are one-dimensional arrays stored 
in common block NUM1. AMAT1, BMAT1, and CMAT1 are of length NIP x N2P x NEQP x NEQP, 
and SVECT1 is of length NIP x N2P x NEQP. 

Using COEFC as an example of a lower level routine, we have 

subroutine coefc (a,b, c,s,metx,mety ,mett ,nvd,nptsd) 
dimension a(nvd,nptsd,neqp,neqp) ,b( nvd, nptsd, neqp, neqp) , 

$ c(nvd , nptsd , neqp ,neqp) ,s(nvd,nptsd , neqp) 

dimension metxC nvd , nptsd) ,mety(nvd , nptsd) , me tt ( nvd , nptsd) 

where NVD and NPTSD are the dimensions in the non-sweep and sweep directions, respectively. For the 
first sweep, COEFC is thus called from EXEC as 

call coefc (a,b,c ,s,metx,mety , mett ,n2p , nip) 

And for the second sweep, COEFC is called as 


4 An alternative would be use the maximum of N 1 P and N2P as the size for both of the first two dimensions. In fact, 
this is what was done in earlier versions of Proteus . However, if NIP is significantly different from N2P, this is 
inefficient, requiring much more storage than the current procedure. 
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call coefc (a,b,c,s,metx,me-ty,mett,nlp,r»2p) 


Two- Level Storage 

With the Beam-Warming time differencing scheme used in Proteus, the dependent variables RHO, U, 
V, W, and ET must be stored at two time levels. For convenience, T is also stored at two time levels. In 
the ADI solution procedure, RHO, U, etc. are at the known time level n. The corresponding variable at 
the other time level is denoted by adding an "L" to the variable name. Exactly which time level the "L" 
variable is at depends on the stage in the solution procedure. Letting F represent one of these variables, the 
time levels for F and FL are listed in the following table for the different stages of the solution procedure. 
Recall that * represents the intermediate time level after the first ADI sweep. 


STAGE IN TIME STEP 
FROM LEVEL n TO n + 1 

TIME LEVEL 
FOR F 

TIME LEVEL 
FOR FL 

From start to end of sweep 1 

n 

Tl — 1 

From end of sweep 1 to end of sweep 2 

n 

* 

From end of sweep 2 to update in EXEC 

n 

1 

From update in EXEC to start of next step 

71 + 1 

n 


DIJMMY_ Array 

For convenience, a two-dimensional array called DUMMY is stored in common block DUMM\ 1 and 
used as a temporary storage location in several areas of the code. This array is dimensioned NIP by N2P, 
the same as the flow variables, metrics, etc. DUMMY is used internally in subroutines CONV and RESID. 
It is also defined in subroutines BLIN2 and BLOUT2 for use in TURBBL, and in subroutine YPLUSN 
for use in subroutines COEFS 1 and KEINIT. And finafly, it is defined in subroutine OUTPUT and passed 
as an argument into subroutine PRTOUT. Details on its use are presented in the subroutine descriptions 
in Section 4.0. 
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3.0 COMMON BLOCKS 


Transfer of data between routines in Proteus is primarily accomplished through the use of labeled 
common blocks. Each common block contains variables dealing with a particular aspect of the analysis, 
and is stored in a separate Cray COMDECK (Cray Research, Inc., 1988). The common block names are 
the same as the COMDECK names. These names also correspond to the names of the input namelists. 
All the variables in namelist BC are stored in common block BC1, etc. The Fortran variables in each 
common block are stored in alphabetical order. 

3.1 COMMON BLOCK SUMMARY 


Block Name 

Description 


BCl 

Boundary condition parameters for the mean flow equations. 


BC2 

Boundary condition parameters for the k-t equations. 


DUMMY 1 

Scratch array. 


FLOW1 

Variables dealing with fluid properties and the flow being com- 
puted. 

GMTRY1 

Parameters defining the geometric configuration. 


IC1 

Variables needed for setting up initial conditions. 


101 

Parameters dealing with program input/output requirements. 


METRIC 1 

Metrics of the nonorthogonal grid transformation, plus 
Cartesian coordinates of the grid points. 

the 

NUM1 

Parameters associated with the numerical method for the mean 
flow equations. 

NUM2 

Parameters associated with the numerical method for the 
equations. 

k-t 

RSTRT1 

Parameters dealing with the restart option. 


TIME1 

Parameters dealing with the time step selection and convergence 
determination. 

TITLE 1 

Descriptive title for case being run. 


TURB1 

Turbulence parameters. 


TURB20 

Parameters and constants associated with the k-t equations. 



3.2 COMMON VARIABLES LISTED ALPHABETICALLY 

In this section all the Proteus Fortran variables stored in common blocks are defined, listed alphabet- 
ically by variable name. Those marked with an asterisk are input variables. More details on these variables 
may be found in Section 3.1 of Volume 2. The common block each variable is stored in is given m pa- 
rentheses at the end of each definition. For subscripted variables, the subscripts are defined along with the 
variable, except for the subscripts II and 12, which are the indices / and j in the f and rj directions, respec- 
tively, and run from 1 to Ni and N 2 . 
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This list also includes the parameters used as array dimensions. These are not actually stored in a 
common block, but are stored in the Cray COMDECK PARAMS1. More details may be found in Section 
6.2 of Volume 2. 

Unless otherwise noted, all variables representing physical quantities are nondimensional. The 
nondimensionalizing procedure is described in Section 3.1.1 of Volume 2. The type (real or integer) of the 
variables follows standard Fortran convention, unless stated otherwise. (I.e., those starting with I, J, h., 
L, M, or N are integer, and the remainder are real.) 


Fortran 

Variable Symbol 

A A 

AMATl(I) A 


* APLUS A* 


Definition 

See AM AT 1 . (NUM1) 

Subdiagonal submatrix of coefficients in the block tridiagonal 
coefficient matrix. In actual use, this one-dimensional array 
is equivalenced to the four-dimensional array A(IV,IS,J,K). 
IS is the grid index in the sweep direction, running from 1 to 
N. IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK routines are 
vectorized), and runs from 2 to N, — 1. The subscript J = 1 
to N eq , corresponding to the N tq coupled governing equations, 
and K = 1 to N*,, corresponding to the N„ s dependent vari- 
ables. (NUM1) 

Van Driest damping constant in the inner and outer regions 
of the Baldwin- Lomax turbulence model. (TURB1) 


B B 

BMATl(I) B 


C C 

* CAVS2E(I) e?> or k 2 


♦ CAVS2I(I) £/ 


* CAVS4E(I) tf> or k 4 


♦ CB 


B 


See BMAT1. (NUM1) 

Diagonal submatrix of coefficients in the block tridiagonal 
coefficient matrix. In actual use, this one-dimensional array 
is equivalenced to the four-dimensional array B(IV,IS,J,K). 
IS is the grid index in the sweep direction, running from 1 to 
N. IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK ' routines are 
vectorized), and runs from 2 to N, — 1. The subscript J = 1 
to N eq , corresponding to the N eq coupled governing equations, 
and K = 1 to N tq , corresponding to the N eq dependent van- 
ables. (NUM1) 

See CMAT1. (NUM1) 

Second-order explicit artificial viscosity coefficient in constant 
coefficient model, or user-specified constant in nonlinear co- 
efficient model. The subscript I = 1 to N„, corresponding to 
the N eq coupled governing equations. (NUM1) 

Second-order implicit artificial viscosity coefficient in constant 
coefficient model. The subscript I = 1 to V,„ corresponding 
to the N eq coupled governing equations. (NUM1) 

Fourth-order explicit artificial viscosity coefficient in constant 
coefficient model, or user-specified constant in nonlinear co- 
efficient model. The subscript I = 1 to N e „ corresponding to 
the N eq coupled governing equations. (NUM1) 

Constant used in the formula for the Klebanoff intermittency 
factor Fiutb in the outer region of the Baldwin- Lomax turbu- 
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lence model, and in the inner region of the Spalding- 
Kleinstein turbulence model. (TURBi) 


* 

CCLAU 

K 

Clauser constant used in the outer region of the Baldwin- 
Lomax turbulence model. (TURBI) 

* 

CCP 

Cep 

Constant used in the outer region of the Baldwin-Lomax tur- 
bulence model. (TURBI) 


CCP1-4 

C Cp i - c CfA 

Constants in empirical formula for specific heat as a function 
of temperature. (FLOW1) 

* 

CFL(I) 


The ratio At/ At c/! where At is the actual time step used in the 
implicit calculation and At c /? is the allowable time step based 
on the Courant- Friedrichs- Uewy (CFL) criterion for explicit 
methods. I is the time step sequence number, and runs from 
1 to NTSEQ. (TIME1) 

* 

CFLMAX 


Maximum allowed value of the CFU number. (TIME1) 

* 

CFLMIN 


Minimum allowed value of the CFU number. (TIME1) 


CHGAVG(I) 

^Qa»| 

Maximum change in absolute value of the dependent vari- 
ables, averaged over the last NITAVG time steps. 5 The sub- 
script 1=1 to ;V e? , corresponding to the N eq dependent 
variables. (TIME1) 


CHGMAX(U) 

AQmox 

Maximum change in absolute value of the dependent variables 
over a single time step. 5 The subscript I = 1 to N eq , corre- 
sponding to the N eq dependent variables, and J = 1 to 
NITAVG, the number of time steps used in the moving av- 
erage option for determining convergence. (TIME1) 

+ 

CHG1 


Minimum change, in absolute value, that is allowed in any 
dependent variable before increasing the time step. 5 (TIME1) 

* 

CHG2 


Maximum change, in absolute value, that is allowed in any 
dependent variable before decreasing the time step. 5 (TIME1) 

* 

CKLEB 

CfCleb 

Constant used in the formula for the Klebanoff intermittency 
factor Fjcteb in the outer region of the Baldwin- Lomax turbu- 
lence model. (TURBI) 

* 

CKMIN 

iC}Cleb)f run 

Constant used in the formula for the Klebanoff intermittency 
factor Ffcteb in the outer region of the Baldwin-Lomax turbu- 
lence model. (TURBI) 


CK1-2 

C kx - Ck2 

Constants in empirical formula for thermal conductivity coef- 
ficient as a function of temperature. (FLOWl) 


CMATl(I) 

c 

Superdiagonal submatrix of coefficients in the block 
tridiagonal coefficient matrix. In actual use, this one- 
dimensional array is equivalenced to the four- dimensional ar- 
ray C(IV,IS,J,K). IS is the grid index in the sweep direction, 
running from 1 to N. IV is the grid index in the "vectorized" 

5 For the energy equation, the change in E r is divided by E Jr ~ p r RT r l(y r - 1) + 2, so that it is the same order 

of magnitude as the other conservation variables. 
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direction (i.e., the non-sweep direction in which the "BLK" 
routines are vectorized), and runs from 2 to N,~ 1. The 
subscript J = 1 to N", corresponding to the N eq coupled gov- 
erning equations, and K = 1 to N eq , corresponding to the A rg 
dependent variables. (NLM1) 


CMUR 

c. 

Constant used to compute C 4 in the turbulent viscosity for- 
mula for the /c-e equations. (TURB20) 

CMU1-2 

C(il " Cp2 

Constants in empirical formula for laminar viscosity coeffi- 
cient as a function of temperature. (FLOW 1) 

CNA 

n 

Exponent in the formula used to average the two outer region 
profiles that result when both boundaries in a coordinate 
direction are solid surfaces. (TURB1) 

CNL 

n 

Exponent in the Launder- Priddin modified mixing length 
formula for the inner region of the Baldwin- Lomax turbulence 
model. (TURB1) 

CONE 

Cx 

Constant used in the production term of the e equation. 
(TURB20) 

CP(I1,I2) 

c p 

Specific heat at constant pressure at time level n. (FLOW1) 

CTHREE 

Q 

Constant used to compute C u in the turbulent viscosity for- 
mula for the k-z equations. (TURB20) 

CTWOR 

c 2r 

Constant used to compute C 2 in the dissipation term of the z 
equation. (TURB20) 

CV(I1,I2) 

Cv 

Specific heat at constant volume at time level n. (FLOW1) 

CVK 

K 

Von Karman mixing length constant used in the inner region 
of the Baldwin-Lomax and Spalding- Kleinstein turbulence 
models. (TURB1) 

CWK 

C w k 

Constant used in the formula for F wake in the outer region of 
the Baldwin-Lomax turbulence model. (TURB1) 

DEL 

A£ or A rj 

Computational grid spacing in the ADI sweep direction. 
(NUM1) 

DETA 

Ar] 

Computational grid spacing in the rj direction. (NUM1) 

DPDET(I) 

dpjdEr 

The derivative of p with respect to £ 7 , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

DPDRHO(I) 

dpldp 

The derivative of p with respect to p y stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FL0W1) 

DPDRU(I) 

dpld(pu) 

The derivative of p with respect to pu , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW 1 ) 
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DPDRV(I) 

dpld(pv) 

The derivative of p with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 


DPDRW(I) 

dpld(pw) 

The derivative of p with respect to pw, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N . (FL0W1) 

* 

DT(I) 

At 

The time step size, when specified directly as input. 1 is the 
time step sequence number, and runs from 1 to NTSEQ. 
(TIME1) 


DTAU(I1,I2) 

At 

Computational time step size. (TIME1) 


DTDET(I) 

dTjdEr 

The derivative of T with respect to Et, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 


DTDRHO(I) 

dTjdp 

The derivative of T with respect to p, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 


DTDRU(I) 

dTjd(pu) 

The derivative of T with respect to pu, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 


DTDRV(I) 

dTld(pv) 

The derivative of T with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 


DTDRW(I) 

dTjd(pw) 

The derivative of T with respect to pw t stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

* 

DTF1 


Factor by which the time step is multiplied if the solution 
changes too slowly. (TIME1) 

* 

DTF2 


Factor by which the time step is divided if the solution 
changes too quickly. (TIME1) 

* 

DTMAX 


Maximum value that At is allowed to reach, or the maximum 
At used in the time step cycling procedure. (TIME1) 

* 

DTMIN 


Minimum value that At is allowed to reach, or the minimum 
At used in the time step cycling procedure. (TIME1) 


DUMMY(I1,I2) 


Dummy array used for temporary storage in several subrou- 
tines. (DUMMY1) 


DXI 

A£ 

Computational grid spacing in the f direction. (NUM1) 


E(I1,I2) 

i 

Turbulent dissipation rate at time level n. (TURB20) 


EL(1 1,12) 

£ 

Turbulent dissipation rate at previous or intermediate time 
level. (TURB20) 

* 

EPS(I) 

£ 

Convergence level to be reached. The subscript I = 1 to N tv 
corresponding to the dependent variables. (TIME1) 
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ER e r 

ET(I1,I2) E T 

ETAT(I1,I2) */, 

ETAX(I1,I2) y] x 

ETAY(I1,I2) rj y or * 7 , 

ETL(I 1 ,I 2 ) E r 

* FBCT1(I2,I,J) 


* FBCT2(I1,I,J) 


* FBC1(I2,I,J) 


* FBC2(I1,I,J) 


* GAMR y r 


Dimensional reference energy, p r u}. (FLOW1) 

Total energy at time level n . (FLOW 1 ) 

The derivative of the computational coordinate *7 with respect 
to untransformed time t. (METRIC 1 ) 

The derivative of the computational coordinate rj with respect 
to the Cartesian coordinate .x. (METRIC 1) 

The derivative of the computational coordinate *7 with respect 
to the Cartesian coordinate y or cylindrical coordinate r. 
(METRIC1) 

Total energy at previous or intermediate time level. (FLOW 1 ) 

Point-by-point values used for boundary conditions for the 
k-z turbulence model on the £ = 0 and £ = 1 boundaries. 
These are either set in the input, if a point -by-point distrib- 
ution is being specified by the user, or by the program itself. 
The subscript 1=1 or 2, corresponding to the k and z 
equations, respectively, and J = 1 or 2, corresponding to the 
£ = 0 and £ = 1 boundaries, respectively. (BC2) 

Point -by-point values used for boundary* conditions for the 
k-z turbulence model on the *7 = 0 and *7 — 1 boundaries. 
These are either set in the input, if a point-by-point distrib- 
ution is being specified by the user, or by the program itself. 
The subscript 1=1 or 2, corresponding to the k and z 
equations, respectively, and J = 1 or 2, corresponding to the 
*7 = 0 and rj = 1 boundaries, respectively. (BC2) 

Point-by-point values used for steady boundary conditions on 
the £ = 0 and £ = 1 surfaces. These are either set in the input, 
if a point-by-point distribution is being specified by the user, 
or by the program itself. I runs from 1 to V, 9 , corresponding 
to the N e<J conditions needed, and J = 1 or 2, corresponding 
to the £ = 0 and f = 1 boundaries, respectively. (BC1) 

Point-by-point values used for steady boundary conditions on 
the *7 = 0 and *7 = 1 surfaces. These are either set in the input, 
if a point-by-point distribution is being specified by the user, 
or by the program itself. I runs from 1 to N eq , corresponding 
to the N eq conditions needed, and J = 1 or 2, corresponding 
to the *7 = 0 and *7 = 1 boundaries, respectively. (BC1) 

Reference ratio of specific heats, c Pr /Cy r . (FLOW1) 


* GBCT1(I,J) Values used for boundary conditions for the k-z turbulence 

model on the £ = 0 and \ = 1 boundaries, when specified for 
the entire surface. The subscript I = 1 or 2, corresponding to 
the k and z equations, respectively, and J = 1 or 2, corre- 
sponding to the l = 0 and f = 1 boundaries, respectively. 
(BC2) 

* GBCT2(I,J) Values used for boundary conditions for the k-z turbulence 

model on the *7 = 0 and *7 = 1 boundaries, when specified for 
the entire surface. The subscript I = 1 or 2, corresponding to 
the k and z equations, respectively, and J = 1 or 2, corre- 


24 3.2 Common Variables Listed Alphabetically 


Proteus 2-D Programmer's Reference 



spending to the >7 = 0 and >7 = 1 boundaries, respectively. 
(BC 2 ) 


* GBC 1 (I,J) 

* GBC 2 (I,J) 

GC 

* GTBC 1 (K,I,J) 


♦ GTBC 2 (K,I,J) 


HSTAG h T 

* HSTAGR h Tr 

* IAV 2 E 

* IAV 2 I 

* IAV 4 E 


Values used for steady boundary conditions on the £ = 0 and 
£ — 1 boundaries, when specified for the entire surface. I runs 
from 1 to A^, corresponding to the N eq conditions needed, and 
J = 1 or 2, corresponding to the £ = 0 and £ = 1 boundaries, 
respectively. (BC1) 

Values used for steady boundary conditions on the rj = 0 and 
V = 1 boundaries, when specified for the entire surface. I runs 
from 1 to corresponding to the N eg conditions needed, and 
J = 1 or 2, corresponding to the rj = 0 and rj = 1 boundaries, 
respectively. (BC1) 

Dimensional proportionality factor in Newton's second law, 
either 32.174 lb m -ft/lb r sec 2 , or 1.0 kg-m/N-sec 2 . (FLOW1) 

A variable used to specify the values for unsteady and time- 
periodic boundary conditions on the £ = 0 and £ = 1 bound- 
aries. I runs from 1 to N^, corresponding to the N eq 
conditions needed, and J = 1 or 2 , corresponding to the 
£ = 0 and £ = 1 boundaries, respectively. For general un- 
steady boundary conditions, K = 1 to NTBC, corresponding 
to the time levels in the array NTBCA, and GTBC1 specifies 
the boundary condition value directly. For time-periodic 
boundary conditions,* K = 1 to 4 , and GTBC1 specifies the 
four coefficients in the equation used to determine the 
boundary condition value. (BC1) 

A variable used to specify the values for unsteady and time- 
periodic boundary conditions on the >7 = 0 and rj — 1 bound- 
aries. I runs from 1 to N eq , corresponding to the N eq 
conditions needed, and J = 1 or 2 , corresponding to the 
r\ — 0 and >7 = 1 boundaries, respectively. For general un- 
steady boundary conditions, K = 1 to NTBC, corresponding 
to the time levels in the array NTBCA, and GTBC2 specifies 
the boundary condition value directly. For time-periodic 
boundary conditions, K = 1 to 4 , and GTBC 2 specifies the 
four coefficients in the equation used to determine the 
boundary condition value. (BC 1 ) 

Stagnation enthalpy used with constant stagnation enthalpy 
option. (FLOW 1 ) 

Dimensional stagnation enthalpy used with constant stag- 
nation enthalpy option. (FLOW1) 

Flag for second-order explicit artificial viscosity; 0 for none, 1 
for constant coefficient model, 2 for nonlinear coefficient 
model. (NUM1) 

Flag for second-order implicit artificial viscosity; 0 for none, 

1 for constant coefficient model. (NUM1) 

Flag for fourth-order explicit artificial viscosity; 0 for none, 1 
for constant coefficient model, 2 for nonlinear coefficient 
model. (NUM1) 
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IAXI 

IBASE 


IBCELM(U) 


IBCT 1(12,14) 


IBCT2(I1,I,J) 


IBC1(I2,1,J) 


IBC2(I1,I,J) 


IBVUP(I) 


ICHECK 

ICONV 


Flag for two-dimensional planar or axisymmetric flow; 0 for 
two'-dimensional planar, 1 for axisymmetric. (GMTRY1) 

Base index used with ISTEP to compute one-dimensional 
index for two-dimensioned array. Then, for example, for any 
sweep U(I1,I2) = U1(IBASE + ISTEP*(I - 1)) where I is the 
grid index in the sweep direction. (NUM1) 

Flags for elimination of off-diagonal sub-matrices resulting 
from gradient or extrapolation boundary conditions: 0 if 
elimination is not necessary, 1 if it is. The subscript I = 1 or 
2 corresponding to the sweep direction, and J = 1 or 2 corre- 
sponding to the lower or upper boundary in that direction. 
(BC1) 

Flags specifying, point-by-point, the type of boundary condi- 
tions used for the k-z turbulence model on the £ — 0 and 
c, = 1 surfaces. These are either set in the input, if a point- 
by-point distribution is specified by the user, or by the pro- 
gram itself. The subscript I = 1 or 2, corresponding to the k 
and £ equations, respectively, and J = 1 or 2, corresponding 
to the £ = 0 and £ = 1 boundaries, respectively. (BC2) 

Flags specifying, point-by-point, the type of boundary condi- 
tions used for the k-z turbulence model on the >7 = 0 and 
rj = 1 surfaces. These are either set in the input, if a point- 
by-point distribution is specified by the user, or by the pro- 
gram itself. The subscript I = 1 or 2, corresponding to the k 
and e equations, respectively, and J = 1 or 2, corresponding 
to the ij = 0 and rj - 1 boundaries, respectively. (BC2) 

Flags specifying, point-by-point, the type of steady boundary 
conditions used on the C = 0 and £ = 1 surfaces. These are 
either set in the input, if a point-by-point distribution is 
specified by the user, or by the program itself. I runs from 1 
to N corresponding to the A r t , conditions needed, and J = 1 
or 2, corresponding to the £ = 0 and £ = 1 boundaries, re- 
spectively. (BC1) 

Flags specifying, point-by-point, the type of steady boundary 
conditions used on the rj = 0 and >7 = 1 surfaces. These are 
either set in the input, if a point-by-point distribution is 
specified by the user, or by the program itself. I runs from 1 
to N,,, corresponding to the A'„ conditions needed, and J = 1 
or 2, corresponding to the >7 = 0 and r\ = 1 boundaries, re- 
spectively. (BC1) 

Flags for updating boundary values from the first sweep after 
the last sweep: 0 if updating is not necessary', 1 if it is. Up- 
dating is required when gradient or extrapolation boundary- 
conditions are used. The subscript I = 1 or 2, corresponding 
to the lower or upper boundary in the first sweep direction. 
(BC1) 

Results are checked for convergence every ICFIECK'th time 
level. (TIME1) 

Convergence flag; 0 if not converged, 1 if converged. 
(TIME1) 


3.2 Common Variables Listed Alphabetically 


Proteus 2-D Programmer's Reference 



* ICTEST 

* ICVARS 

* IDEBUG(I) 

* IDTAU 

* IDTMOD 

* IEULER 


IGAM 


IGINT(I) n 

* IHSTAG 

* ILAMV 

* ILDAMP 

INEG 

* INNER 

* IPACK(I) 

* IPLOT 

* IPLT 

* IPLTA(I) 


Flag for convergence criteria to be used. (TIME1) 

Parameter specifying which variables are being supplied as 
initial conditions by subroutine INIT. (FLOW1) 

A 20-element array of flags specifying various debug options. 

(101) 

Flag for time step selection method. (TIME1) 

The time step size is modified every IDTMOD th time step. 
(TIME1) 

Flag for Euler calculation option; 0 for a full time -averaged 
Navier- Stokes calculation, 1 for an Euler calculation. 
(FL0W1) 

Flag set by method used to select GAMR; 0 if GAMR is de- 
faulted (and hence c p and c v are functions of temperature), 1 
if GAMR is specified by user (and hence c p and c v are con- 
stants). (FLOW1) 

Flags for grid interpolation requirement; 0 if interpolation is 
not needed, 1 if interpolation is needed. The subscript I = 1 
or 2, corresponding to the £ and rj directions, respectively. 
(GMTRY1) 

Flag for constant stagnation enthalpy option; 0 to solve the 
energy equation, 1 to eliminate the energy equation by as- 
suming constant stagnation enthalpy. (FL0W1) 

Flag for computation of laminar viscosity and thermal 
conductivity; 0 for constant values, 1 for functions of local 
temperature. (FLOW1) 

Flag for the Launder- Priddin modified mixing length formula 
in the inner region of the Baldwin- Lomax turbulence model. 
(TURB1) 

Flag indicating non-positive values of pressure and/or tem- 
perature: 0 for no non-positive values, 1 for some. (FLOW1) 

Flag for type of inner region turbulence model. (TURB1) 

Flags for grid packing option; 0 for no packing, 1 to pack 
points as specified by the input array SQ. The subscript 
1=1 or 2, corresponding to the £ and y directions, respec- 
tively. (NUM1) 

Flag controlling the creation of an auxiliary file, usually called 
a "plot file", used for later post-processing. (10 1) 

Results are written into the plot file every IPLT time levels. 

(101) 

Time levels at which results are written into the plot file. The 
subscript 1=1 to 101, the maximum number of time levels 
that may be written. (101) 


Proteus 2-D Programmer's Reference 


3.2 Common Variables Listed Alphabetically 27 



* IPRT 

* IPRTA(I) 

* IPRT1 

* IPRT2 

* IPRTIA(I) 

* IPRT2A(I) 

* IREST 
ISTEP 
ISWEEP 

* ISWIRL 
IT 

ITBEG 

ITDBC 

ITEND 

* ITETA 

* ITHIN(I) 

ITSEQ 

* ITURB 


Results are printed every IPRT time levels. (101) 

Time levels at which results are printed. The subscript I = 1 
to 101, the maximum number of time levels that may be 
printed. (IOl) 

Results are printed at every IPRTl'th mesh point in the f 
direction. (IOl) 

Results are printed at every IPRT2 / th mesh point in the rj 
direction. (IOl) 

£ indices at which results are printed. The subscript I = 1 to 
a maximum of Nl, the number of grid points in the £ direc- 
tion. (IOl) 

rj indices at which results are printed. The subscript I = 1 to 
a maximum of N2, the number of grid points in the y\ direc- 
tion. (IOl) 

Flag controlling the reading and writing of auxiliary files used 
for restarting the calculation in a separate run. (RSTRT1) 

Multiplication factor used with I BASE to compute one- 
dimensional index for two-dimensional array. (NUM1) 

Flag specifying ADI sweep direction; 1 for £ direction and 2 
for y\ direction. (NUM1) 

Flag for swirl in axisymmetric flow; 0 for no swirl, 1 for swirl. 
(FLOW1) 

n Current time step number, or known time level. Time step 

number n updates the solution from time level n to n- hi. 
(TIME1) 

The time time step number, or known time level n , at the 
beginning of a run. For a non-restart case, ITBEG = 1. 
(TIME1) 

Flag for time-dependent boundary conditions; 0 if all bound- 
ary conditions are steady, 1 if any general unsteady boundary 
conditions are used, 2 if only steady and time-periodic 
boundary conditions are used. (BC1) 

The final time step number. (TIME1) 

Flag for computing turbulent viscosity on constant >/ lines. 
(TURB1) 

Flags for thin-layer option; 0 to include 2nd. derivative 
viscous terms, 1 to eliminate them. The subscript I = 1 or 2, 
corresponding to the f and r? directions, respectively. 
(FLOW1) 

Current time step sequence number. (TIME1) 

Flag for turbulent flow option; 0 for laminar flow, 1 for tur- 
bulent flow using the Baldwin- Lomax algebraic turbulence 
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* ITXI 

* IUNITS 
IV 

* IVOUT(I) 

* IWALLl(I) 

* IWALL 2 (I) 

* IWOUTl(I) 

* IWOUT 2 (I) 

11 

12 

* JBCTl(U) 


* JBCT 2 (I,J) 


* JBC 1 (I,J) 


model, 20 for turbulent flow using the Chien two -equation 
k-z turbulence model. (TURB1) 

Flag for computing turbulent viscosity on constant £ lines. 
(TURB 1 ) 

Flag for type of units used to specify reference conditions; 
0 for English units, 1 for SI units. ( 101 ) 

4 , Grid point index in the "vectorized" direction (i.e., the non- 

sweep direction in which the "BLK" routines are vectorized). 
Therefore, IV = j for the first sweep and i for the second 
sweep. (NUM 1 ) 

A 50 -element array specifying which variables are to be 
printed. (101) 

Flags indicating type of surfaces in the £ direction; 0 for a free 
boundary, 1 for a solid wall. The subscript I = 1 or 2, corre- 
sponding to the ^ = 0 and £ = 1 surfaces, respectively. 

(TURB1) 

Flags indicating type of surfaces in the rj direction; 0 for a free 
boundary, 1 for a solid wall. The subscript I = 1 or 2 , corre- 
sponding to the rj = 0 and >7=1 surfaces, respectively. 

(TURB 1 ) 

Flags specifying whether or not various parameters are to be 
printed along the f boundaries; 0 for no printout, 1 for print- 
out along the boundary. The subscript 1=1 or 2 , corre- 
sponding to the £ = 0 and £ = 1 boundaries, respectively. 
(IOl) 

Flags specifying whether or not various parameters are to be 
printed along the y\ boundaries; 0 for no printout, 1 for print- 
out along the boundary. The subscipt 1=1 or 2, corre- 
sponding to the >7 = 0 and >7 = 1 boundaries, respectively. 
(IOl) 

i Grid point index in the f direction. (NUM 1 ) 

j Grid point index in the rj direction. (NUM 1 ) 

Flags specifying the type of boundary conditions used for the 
k-s turbulence model on the £ = 0 and J = 1 surfaces, when 
specified for the entire surface. The subscript I = 1 or 2, cor- 
responding to the k and z equations, respectively, and J = 1 
or 2, corresponding to the f = 0 and £ = 1 boundaries, re- 
spectively. (BC 2 ) 

Flags specifying the type of boundary conditions used for the 
k-z turbulence model on the >; = 0 and >7=1 surfaces, when 
specified for the entire surface. The subscript I = 1 or 2 , cor- 
responding to the k and s equations, respectively, and J = I 
or 2, corresponding to the >7 = 0 and rj = 1 boundaries, re- 
spectively. (BC 2 ) 

Flags specifying the type of steady boundary conditions used 
on the £ — 0 and £ = 1 surfaces, when specified for the entire 
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JBC2(I,J) 

JI(I1,I2) J~ 1 or rJ~ 1 

JTBCl(U) 

JTBC2(I,J) 

KBCPER(I) 

KBC1(J) 

KBC2(J) 


KE(1 1 ,12) k 

KEL(I1,I2) k 

KT(I1,I2) k 

KTR k, 

LA(I1,I2) 2 

LR U 


surface. I runs from 1 to N eq , corresponding to the N eq con- 
ditions needed, and J = 1 or 2, corresponding to the f = 0 and 
c = 1 boundaries, respectively. (BC1) 

Flags specifying the type of steady boundary conditions used 
on the = 0 and >j = 1 surfaces, when specified for the entire 
surface. 1 runs from 1 to N tq , corresponding to the N eq con- 
ditions needed, and J = 1 or 2, corresponding to the >7 = 0 and 
r\ = 1 boundaries, respectively. (BC1) 

Normally the inverse Jacobian of the non-orthogonal grid 
transformation. For the COEF routines in axisymmetric 
flow, it is temporarily redefined as the product of the local 
radius and the inverse Jacobian. This is a real variable. 
(METRIC 1) 

A variable specifying the type of time dependency for the 
boundary conditions on the £ = 0 and £ = 1 boundaries. I 
runs from 1 to N tq , corresponding to the N eq conditions 
needed, and J = 1 or 2, corresponding to the £ = 0 and £ = 1 
boundaries, respectively. (BC1) 

A variable specifying the type of time dependency for the 
boundary conditions on the >j = 0 and rj = 1 boundaries. I 
runs from 1 to N eq , corresponding to the N eq conditions 
needed, and J = 1 or 2, corresponding to the tj = 0 and rj = 1 
boundaries, respectively. (BC1) 

Flags for spatially periodic boundary conditions: 0 for non- 
periodic, 1 for periodic. The subscript 1=1 or 2, corre- 
sponding to the $ and jj directions, respectively. (BC1) 

Flags for type of boundaries in the £ direction. The subscript 
J = 1 or 2, corresponding to the £ = 0 and £ = 1 boundaries, 
respectively. (BC1) 

Flags for type of boundaries in the >1 direction. The subscript 
J = 1 or 2, corresponding to the rj = 0 and r\ = 1 boundaries, 
respectively. (BC1) 

Turbulent kinetic energy at time level n. This is a real vari- 
able. (TURB20) 

Turbulent kinetic energy at previous or intermediate time 
level. This is a real variable. (TURB20) 

Effective thermal conductivity coefficient at time level n. This 
is a real variable. (FLOW1) 

Dimensional reference thermal conductivity coefficient. This 
is a real variable. (FLOW1) 

Effective second coefficient of viscosity at time level n (usually 
assumed equal to — 2/i/3.) This is a real variable. (FL0W1) 

Dimensional reference length. This is a real variable. 
(FLOW1) 
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LRMAX(I,J,K) 


LWAKE1(I2) 

LWAKE2(I1) 

* LWALL1(I2,I) 

* LWALL2(I1,I) 
LWSET(I) 


* MACHR M r 


The grid indices corresponding to the location of the maxi- 
mum absolute value of the residual. The subscript I = 1 or 
2, corresponding to the q and rj directions, respectively, J = 1 
to N eq , corresponding to the N eq coupled governing equations, 
and K = 1 or 2, corresponding to the residual computed 
without and with the artificial viscosity terms. (TIME1) 

Grid point index in the q direction used as the origin for 
computing length scales for free turbulent flows. (TURB 1) 

Grid point index in the r\ direction used as the origin for 
computing length scales for free turbulent flows. (TURB1) 

Flags indicating, point-by-point, the type of surfaces in the q 
direction; 0 for a free boundary, 1 for a solid wall. The sub- 
script 1=1 or 2, corresponding to the f = 0 and £ = 1 
boundaries, respectively. (TURB1) 

Flags indicating, point-by-point, the type of surfaces in the rj 
direction; 0 for a free boundary, 1 for a solid wall. The sub- 
script 1=1 or 2, corresponding to the r\ = 0 and rj = 1 
boundaries, respectively. (TURB1) 

Flags specifying how wall locations are determined for the 
turbulence model; 0 if wall locations are found automatically 
by searching for boundary points where the velocity is zero, 
1 if input using the LWALL parameters, 2 if input using the 
I WALL parameters. The subscript I = 1 to 4, corresponding 
to the £ = 0, £ = 1, >7 = 0, and jj = 1 boundaries, respectively. 
(TURB1) 

Reference Mach number, u r j{y r R T r ) X}2 . This is a real variable. 
(FLOW1) 


METTl(I) or rj ( The derivative of the computational coordinate in the ADI 

sweep direction with respect to untrans formed time t. In ac- 
tual use, this one -dimensional array is equivalenced to the 
two-dimensional array METT(IV,IS). IS is the grid index in 
the sweep direction, running from 1 to N. IV is the grid index 
in the 'Vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
jV* — 1 . This is a real variable. (METRIC 1) 

METXl(I) or rj x The derivative of the computational coordinate in the ADI 

sweep direction with respect to the Cartesian coordinate x. 
In actual use, this one-dimensional array is equivalenced to 
the two-dimensional array METX(IV,IS). IS is the grid index 
in the sweep direction, running from 1 to N. IV is the grid 
index in the "vectorized" direction (i.e., the non- sweep direc- 
tion in which the "BLK" routines are vectorized), and runs 
from 2 to N v — 1. This is a real variable. (METRIC 1) 

METYl(I) l y or r\ y The derivative of the computational coordinate in the ADI 

sweep direction with respect to the Cartesian coordinate y or 
cylindrical coordinate r. In actual use, this one-dimensional 
array is equivalenced to the two-dimensional array 
METY(IV,IS). IS is the grid index in the sweep direction, 
running from 1 to N. IV is the grid index in the "vectorized" 
direction (i.e., the non- sweep direction in which the "BLK" 
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MU(I1,I2) fi 

* MUR fir 

MUT(I1,I2) fi t 

MUTL(I1,I2) Mr 


NAMAX 


NBC 


NC 

* NDTCYC 
NEN 

NEQ N eq 


NEQP 


NEQPM 


NET 


* NGEOM 

* NGRID 

* NHIST 

* NHMAX 

NIN 


routines are vectorized), and runs from 2 to N v — 1. This is a 
real variable. (METRIC 1) 

Effective viscosity coefficient at time level n. This is a real 
variable. (FL0W1) 

Dimensional reference viscosity coefficient. This is a real 
variable. (FL0W1) 

Turbulent viscosity coefficient at time level n. This is a real 
variable. (FL0W1) 

Turbulent viscosity coefficient at previous or intermediate 
time level. This is a real variable. (TURB20) 

A dimensioning parameter equal to the maximum number of 
time steps allowed in the moving average convergence test (the 
ICTEST = 2 option). (PARAMS 1) 

A dimensioning parameter equal to the number of boundary 
conditions per equation. (PARAMS 1) 

Array index associated with the continuity equation. 
(NUM1) 

Number of time steps per cycle used in the time step cycling 
procedure. (TIME 1) 

Array index associated with the energy equation. (NUM1) 

The number of coupled governing equations actually being 
solved. (NUM1) 

A dimensioning parameter equal to the number of coupled 
equations allowed. (PARAMS 1) 

A dimensioning parameter equal to the maximum number of 
coupled equations available. (PARAMS 1) 

Array index associated with the dependent variable E T . 
(NUM1) 

Flag used to specify type of computational coordinates; 1 for 
Cartesian (xj?) coordinates, 2 for polar (r* fi') coordinates, and 
10 to read the coordinates from unit NGRID. (GMTRY1) 

Unit number for reading grid file. (101) 

Unit number for writing convergence history file. (101) 

Maximum number of time levels allowed in the printout of 
the convergence history file (not counting the first two, which 
are always printed.) (101) 

Unit number for reading namelist input. (101) 


* NITAVG 


Number of time steps used in the moving average convergence 
test. (TIME1) 
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NMAXP 

* NOUT 

* NPLOT 

* NPLOTX 
NPRT1 
NPRT2 
NPTS 
NPT1 

NPT2 

NR 

* NRQIN 

* NRQOUT 
NRU 

NRV 

NRW 

* NRXIN 

* NRXOUT 

* NSCR1 

* NTBC 

* NTBCA(I) 

* NTIME(I) 


A dimensioning parameter equal to the maximum of N IP and 
N2P. (PARAMS1) 

Unit number for writing standard output. (IOl) 

Unit number for writing CONTOUR or PLOT3D 0 plot file 

( 101 ) 

Unit number for writing PL0T3D XYZ plot file. (101) 

Total number of indices for printout in the q direction. (101) 

Total number of indices for printout in the >7 direction. (101) 

N The number of grid points in the sweep direction. (NUM1) 

Ai or Ni + 1 The number of grid points in the £ direction used in com- 
puting coefficients: i\\ for non-periodic boundary conditions; 
N] + 1 for spatially periodic boundary conditions. (NUM1) 

N 2 or N 2 + 1 The number of grid points in the rj direction used in com- 
puting coefficients: N 2 for non-periodic boundary conditions; 
N 2 + 1 for spatially periodic boundary conditions. (NUM1) 

Array index associated with the dependent variable p 

(NUM1) 

Unit number for reading restart flow field. (RSTRT1) 

Unit number for writing restart flow field. (RSTRT1) 

Array index associated with the dependent variable ou 
(NUM1) 

Array index associated with the dependent variable pv 
(NUM1) 

Array index associated with the dependent variable pw 

(NUM1) 

Unit number for reading restart computational mesh 

(RSTRT1) 

Unit number for writing restart computational mesh 

(RSTRT1) 

Unit number for scratch file in subroutine PLOT. (101) 

Number of values in the tables of GTBC1 and/or GTBC2 vs. 
NTBCA for general unsteady boundary conditions. (BC1) 

Time levels at which GTBC1 and/or GTBC2 are specified for 
general unsteady boundary conditions. The subscript I = 1 to 
NTBC, corresponding to the NTBC values in the table 
(BC1) 

Maximum number of time steps to march. I runs from 1 to 
NTSEQP, corresponding to the time step sequence number 

(TIME1) 
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NTKE 


Number of k-t iterations per mean flow iteration. (TURB20) 

NTOTP 


A dimensioning parameter equal to the total storage required 
for a single two-dimensional array (i.e., NTP x N2P). 
(PARAMS1) 

NTP 


A dimensioning parameter equal to the maximum number of 
entries in the table of time-dependent boundary condition 
values. (PARAMS1) 

NTSEQ 


The total number of time step sequences being used. 
(TIME1) 

NTSEQP 


A dimensioning parameter equal to the maximum number of 
time step sequences in the time step sequencing option. 
(PARAMS1) 

NV 

K 

The number of grid points in the "vectorized" direction (i.e., 
the non-sweep direction in which the BLK routines are 
vectorized). Therefore, NV = N 2 for the first sweep and V, for 
the second sweep. (NUM1) 

NXM 


Array index associated with the x- momentum equation. 

(NUM1) 

NYM 


Array index associated with the y or r - momentum equation. 
(NUM1) 

NZM 


Array index associated with the swirl momentum equation. 
(NUM1) 

N1 

V, 

The number of grid points in the f direction. (NUM1) 

NIP 


A dimensioning parameter equal to the maximum number of 
grid points in the £ direction. (PARAMS1) 

N2 

n 2 

The number of grid points in the rj direction. (NUM1) 

N2P 


A dimensioning parameter equal to the maximum number of 
grid points in the »/ direction. (PARAMS1) 

P(1 1 ,12) 

P 

Static pressure at time level n. (FL0W1) 

PONE 

Px 

Part 1 of the production rate of the turbulent kinetic energy. 
(TURB20) 

PR 

Pr 

Dimensional reference static pressure, p r RT,jg c . (FLOW1) 

PRLR 

Pn r 

Reference laminar Prandtl number, c Pr p r lk„ where 
c Pr = y,R l(y, — 1)- (FLOW1) 

PRR 

Pr, 

Reference Prandtl number, fi,u}jk,T r . (FL0W1) 

PRT 

Pr, 

Turbulent Prandtl number, or, if non-positive, a flag indicat- 
ing the use of a variable turbulent Prandtl number. (TURB1) 

PTWO 

Pi 

Part 2 of the production rate of the turbulent kinetic energy. 
(TURB20) 


34 3.2 Common Variables Listed Alphabetically 


Proteus 2-D Programmer's Reference 



* PO 


RAX(I) 1 or r 

* RER Re r 

RESAVG(J,K) R^ 

RESL2(J,K) R L2 


RESMAX(J,K) R max 


* REXT1 Re Xlr 


* REXT2 Re Xtr 


* RG R 

RGAS R 

RHO(Il,I2) p 

RHOL(Il,I2) p 


* RHOR Pr 

* RMAX 

* RMIN rL. 

S S 


Initial static pressure. (IC1) 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. I is the grid index in the sweep direction, 
running from 1 to A\ (METRIC 1) 

Reference Reynolds number, p r u r L r lp r . (FLOW1) 

The average absolute value of the residual for the previous 
time step. The subscript J = 1 to N eq , corresponding to the 
N eq coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 

The L 2 norm of the residual for the previous time step. The 
subscript J = 1 to N eq , corresponding to the N eq coupled gov- 
erning equations, and K = 1 or 2, corresponding to the resi- 
dual computed without and with the artificial viscosity terms. 
(TIME1) 

The maximum absolute value of the residual for the previous 
time step. The subscript J = 1 to N e<n corresponding to the 
coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 

Reynolds number at the beginning of the transition region, 
based on maximum total velocity and distance from £ = 0, for 
flow predominantly in the f direction with a leading edge at 
{ = 0. (TURB1) 

Reynolds number at the beginning of the transition region, 
based on maximum total velocity and distance from rj = 0, for 
flow predominantly in the rj direction with a leading edge at 
*7 = 0. (TURB1) 

Dimensional gas constant. (FLOW1) 

Nondimensional gas constant. (FLOW1) 

Static density at time level n. (FLOW1) 

Static density at previous or intermediate time level. 
(FLOW1) 

Dimensional reference density. (FLOW1) 

Maximum f coordinate for polar grid option. (GMTRY1) 
Minimum r* coordinate for polar grid option. (GMTRY1) 
See SVECT1. (NUM1) 


* SIGE 

* SIGK 


o t Constant used in the diffusion term of the e equation. 

(TURB20) 

Ok Constant used in the diffusion term of the k equation. 

(TURB20) 
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SQ(I.J) 


An array controlling the packing of grid points using the 
Roberts transformation. The subscript 1=1 or 2, corre- 
sponding to the £ and r\ directions, respectively. SQ(I,1) 
specifies the location of packing, and SQ(I,2) specifies the 
amount of packing. ( N U M 1 ) 

SVECTl(I) 

s 

Subvector of source terms in the block tridiagonal system of 
equations. In actual use, this one-dimensional array is equiv- 
alenced to the three-dimensional array S(IV,IS,J). IS is the 
grid index in the sweep direction, running from 1 to N. IV is 
the grid index in the "vectorized" direction (i.e., the non-sweep 
direction in which the "BLK" routines are vectorized), and 
runs from 2 to A ; v — 1. The subscript J = 1 to N eqi corre- 
sponding to the N eq coupled governing equations. (NUM1) 

T(1 1 ,12) 

T 

Static temperature at time level n. (FLOW1) 

TAU(I1,I2) 

T 

Current value of the time marching parameter. (TIME1) 

TFACT 


Factor used in computing the k-t time step, 
At*., = TFACT (At). (TURB20) 

THC(I) 

8\, $2 

A two-element array specifying the time difference centering 
parameters used for the continuity equation. (NUM1) 

THE(I) 

6\y #2, #3 

A three-element array specifying the time difference centering 
parameters used for the energy equation. (NUM1) 

THKE(I) 

Ou 0 2 

A two -element array specifying the time difference centering 
parameters used for the k-t equations. (NUM2) 

THMAX 

L )/ 

v mcx 

Maximum 6' coordinate in degrees for polar grid option. 
(GMTRY1) 

THMIN 

fft 

L 7 mm 

Minimum Q* coordinate in degrees for polar grid option. 
(GMTRY1) 

THX(I) 

01, 02, 03 

A three-element array specifying the time difference centering 
parameters used for the x-momentum equation. (NUM1) 

THY(I) 

01, 02, 03 

A three-element array specifying the time difference centering 
parameters used for the y or r-momentum equation. (NUM 1) 

THZ(I) 

01, 02, 03 

A three-element array specifying the time difference centering 
parameters used for the swirl momentum equation. (NUM1) 

TITLE 


Title for printed output and CONTOUR plot file, up to 72 
characters long. This is a character variable. (TITLE 1) 

TL(I1,I2) 

T 

Static temperature at previous or intermediate time level. 
(FLOW1) 

TLIM 


When the amount of CPU time remaining for the job drops 
below TLIM seconds, the calculation is stopped. (TIME1) 

TR 

T, 

Dimensional reference temperature. (FLOW1) 

TO 

To 

Initial static temperature. (IC1) 
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U(1 1,12) 

U 

Velocity in the Cartesian x direction at time level n. 
(FLOW1) 


UL(I1,I2) 

U 

Velocity in the Cartesian x direction at previous or interme- 
diate time level. (FLOW1) 

* 

UR 

U r 

Dimensional reference velocity. (FLOW1) 

* 

UO 

Uq 

Initial velocity in the Cartesian x direction. (IC1) 


V(I1,I2) 

V 

Velocity in the Cartesian y direction or cylindrical r direction 
at time level n. (FLOWl) 


VL(I1,I2) 

V 

Velocity in the Cartesian y direction or cylindrical r direction 
at previous or intermediate time level. (FLOWl) 


VORT(Il,I2) 

|o| 

Total vorticity magnitude. (TURB1) 


VORT(Il,I2) 

1*1 

Production rate of turbulent kinetic energy. (TURB1) 

* 

VO 

Vo 

Initial velocity in the Cartesian y direction or cylindrical r di- 
rection. (IC1) 


W(I1,I2) 

w 

Swirl velocity at time level n . (FLOWl) 


WL(I1,I2) 

w 

Swirl velocity at previous or intermediate time level. 
(FLOWl) 

* 

WO 

H’o 

Initial swirl velocity. (IC1) 


X(1 1,12) 

X 

Cartesian x coordinate. (METRIC 1) 


XIT(I1,I2) 


The derivative of the computational coordinate £ with respect 
to untransformed time t. (METRIC 1) 


XIX(I1,I2) 

L 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate x. (METRIC 1) 


XIY(I1,I2) 

iy or 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate y or cylindrical coordinate r. 
(METRIC1) 

* 

XMAX 

Xmax 

Maximum x coordinate for Cartesian grid option. 
(GMTRY1) 

* 

XMIN 

Xmin 

Minimum x coordinate for Cartesian grid option. 
(GMTRY1) 


Y(I1,I2) 

y or r 

Cartesian y coordinate or cylindrical r coordinate. 
(METRIC1) 

* 

YMAX 

y max 

Maximum y coordinate for Cartesian grid option. 
(GMTRY1) 

* 

YMIN 

ymm 

Minimum y coordinate for Cartesian grid option. 
(GMTRY1) 
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YPLUSD(I1,I2) 


r 


Non-dimensional distance from the nearest solid wall. 
(TURB20) 


3.3 COMMON VARIABLES LISTED SYMBOLICALLY 

In this section many of the Proteus Fortran variables stored in common blocks are defined, listed sym- 
bolically. Note that this list does not include those variables without symbolic representations, such as 
various flags, or those whose meaning depends on other parameters, such as the boundary condition values 
and sweep direction metrics. The variables marked with an asterisk are input variables. More details on 
these may be found in Section 3.1 of Volume 2. The common block each variable is stored in is given in 
parentheses at the end of each definition. For subscripted variables, the subscripts are defmed along with 
the variable, except for the subscripts II and 12, which are the indices / andy in the £ and rj directions, re- 
spectively, and run from 1 to N\ and A 2 - 

Unless otherwise noted, all variables representing physical quantities are nondimensional. The 
nondimensionalizing procedure is described in Section 3.1.1 of Volume 2. The type (real or integer) of the 
variables follows standard Fortran convention, unless stated otherwise. (I.e., those starting with I, J, K, 
L, M, or N are integer, and the remainder are real.) 


Symbol 
* A + 

A 


Fortran 

Variable 

APLUS 

AMATl(I) 


* B CB 


B BMATl(l) 


CP(I1,I2) 

CV(I1,I2) 


* C cp CCP 


Definition 

Van Driest damping constant in the inner and outer regions 
of the Baldwin- Lomax turbulence model. (TURB1) 

Subdiagonal submatrix of coefficients in the block tridiagonal 
coefficient matrix. In actual use, this one-dimensional array 
is equivalenced to the four-dimensional array A(IV,IS,J,K). 
IS is the grid index in the sweep direction, running from 1 to 
N. IV is the grid index in the "vectorized" direction (i.e., the 
non- sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v — 1. The subscript J = 1 
to N eq , corresponding to the N eq coupled governing equations, 
and K = 1 to A^, corresponding to the N eq dependent vari- 
ables. (NUM1) 

Constant used in the formula for the Klebanoff intermittency 
factor Fjcub in the outer region of the Baldwin- Lomax turbu- 
lence model, and in the inner region of the Spalding- 
Kleinstein turbulence model. (TURB1) 

Diagonal submatrix of coefficients in the block tridiagonal 
coefficient matrix. In actual use, this one-dimensional array 
is equivalenced to the four-dimensional array B(IV,1SJ,K). 
IS is the grid index in the sweep direction, running from 1 to 
N. IV is the grid index in the "vectorized" direction (i.e., the 
non- sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v — 1. The subscript J — 1 
to N eq , corresponding to the N eq coupled governing equations, 
and K = 1 to A'*,, corresponding to the N cq dependent vari- 
ables. (NUM1) 

Specific heat at constant pressure at time level n. (FLOW1) 

Specific heat at constant volume at time level n. (FLOW1) 

Constant used in the outer region of the Baldwin- Lomax tur- 
bulence model. (TURB1) 
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C £ ,1 - C Cp a 

CCP1-CCP4 

Constants in empirical formula for specific heat as a function 
of temperature. (FLOW1) 

Ckl - Ck2 

CK1-2 

Constants in empirical formula for thermal conductivity coef- 
ficient as a function of temperature. 

C/Cleb 

CKLEB 

Constant used in the formula for the Klebanoff intermittency 
factor F K[eb in the outer region of the Baldwin- Lomax turbu- 
lence model. (TURB1) 


CKMIN 

Constant used in the formula for the Klebanoff intermittency 
factor Fjc/et in the outer region of the Baldwin- Lomax turbu- 
lence model. (TLRB1) 

C, 

CMUR 

Constant used to compute C M in the turbulent viscosity for- 
mula for the k-z equations. (TURB20) 

Cp] - C(i2 

CML’1-2 

Constants in empirical formula for laminar viscosity coeffi- 
cient as a function of temperature. (FL0W1) 

Cwk 

CWK 

Constant used in the formula for F wake in the outer region of 
the Baldwin-Lomax turbulence model. (TURB1) 

c, 

CONE 

Constant used in the production term of the z equation. 
(TURB20) 

a. 

CTWOR 

Constant used to compute C 2 in the dissipation term of the z 
equation . (T U R B 20) 

a 

CTHREE 

Constant used to compute in the turbulent viscosity for- 

mula for the k-z equations. (TURB20) 

c 

CMATl(I) 

Superdiagonal submatrix of coefficients in the block 
tridiagonal coefficient matrix. In actual use, this one- 
dimensional array is equivalenced to the four-dimensional ar- 
ray C(IV,IS,J,K). IS is the grid index in the sweep direction, 
running from 1 to N. IV is the grid index in the Vectorized'' 
direction (i.e., the non-sweep direction in which the BLK" 
routines are vectorized), and runs from 2 to N v — 1. The 
subscript J = 1 to N eq , corresponding to the N eq coupled gov- 
erning equations, and K = 1 to N eq , corresponding to the N tq 
dependent variables. (NUM1) 

e r 

ER 

Dimensional reference energy, p r u?. (FLOW1) 

E t 

ET(I1,I2) 

Total energy at time level /?. (FLOW1) 

E t 

ETL(I1,I2) 

Total energy at previous or intermediate time level. (FLOW 1) 

gc 

GC 

Dimensional proportionality factor in Newton's second law, 
either 32.174 lb m -ft/lb r sec 2 , or 1.0 kg-m/N-sec 2 . (FLOW1) 

h T 

HSTAG 

Stagnation enthalpy used with constant stagnation enthalpy 
option. (FLOW1) 

hr. 

HSTAGR 

Dimensional stagnation enthalpy used with constant stag- 
nation enthalpy option. ( F LOW 1 ) 

i 

11 

Grid point index in the ^ direction. (NUM1) 
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i. 

IV 

Grid point index in the "vectorized" direction (i.e., the non- 
sweep direction in which the "BLK" routines are vectorized). 
Therefore, IV = j for the first sweep and / for the second 
sweep. (NUM1) 

j 

12 

Grid point index in the rj direction. (NUM1) 

y - 1 

JI(1 1 ,12) 

Inverse Jacobian of the non-orthogonal grid transformation. 
(For axisymmetric flow, in the COEF routines JI = rJ~ l t the 
product of the local radius and the inverse Jacobian.) This is 
a real variable. (METRIC 1) 

k 

KT(I1,I2) 

Effective thermal conductivity coefficient at time level n. This 
is a real variable. (FLOW1) 

k 

KE(I1,I2) 

Turbulent kinetic energy at time level n. This is a real vari- 
able. (TURB20) 

k 

KEL(I1,I2) 

Turbulent kinetic energy at previous or intermediate time 
level. This is a real variable. (TURB20) 

k r 

KTR 

Dimensional reference thermal conductivity coefficient. This 
is a real variable. (FLOWl) 

K 

CCLAU 

Clauser constant used in the outer region of the Baldwin- 
Lomax turbulence model. (TURB1) 

L r 

LR 

Dimensional reference length. This is a real variable. 
(FLOWl) 

M, 

MACHR 

Reference Mach number, u r j(y r R T r ) l/2 . This is a real variable. 
(FLOWl) 

n 

IT 

Current time step number, or known time level. Time step 
number n updates the solution from time level n to n+ 1. 
(TIME1) 

n 

CNA 

Exponent in the formula used to average the two outer region 
Li t profiles that result when both boundaries in a coordinate 
direction are solid surfaces. (TURB1) 

n 

CNL 

Exponent in the Launder- Priddin modified mixing length 
formula for the inner region of the Baldwin- Lomax turbulence 
model. (TURB1) 

N 

NPTS 

The number of grid points in the sweep direction. (NUM1) 

V 

NEQ 

The number of coupled governing equations actually being 
solved. (NUM1) 

N, 

NV 

The number of grid points in the "vectorized" direction (i.e., 
the non- sweep direction in which the "BLK" routines are 
vectorized). Therefore, NV = N 2 for the first sweep and A) for 
the second sweep. (NUM1) 

Ni 

M 

The number of grid points in the £ direction. (NLM1) 
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Ai 

NPT1 

The number of grid points in the £ direction used in com- 
puting coefficients (only for non-periodic boundary condi- 
tions.) (NUM1) 

A ? i + 1 

NPT1 

The number of grid points in the £ direction used in com- 
puting coefficients (only for spatially periodic boundary' con- 
ditions.) (NUM1) 

Aj 

N2 

The number of grid points in the rj direction. (NUM1) 

Ni 

NPT2 

The number of grid points in the >j direction used in com- 
puting coefficients (only for non-periodic boundary condi- 
tions.) (NUM1) 

N 2 + 1 

NPT2 

The number of grid points in the rj direction used in com- 
puting coefficients (only for spatially periodic boundary' con- 
ditions.) (NUMl) 

P 

P(1 1 ,12) 

Static pressure at time level n. (FLOW1) 

Pr 

PR 

Dimensional reference static pressure, p r RT r jg c . (FLOW1) 

Po 

PO 

Initial static pressure. (IC1) 

dpjdE T 

DPDET(I) 

The derivative of p with respect to E r , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dpi dp 

DPDRHO(I) 

The derivative of p with respect to p, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dpi d(p u) 

DPDRU(I) 

The derivative of p with respect to pu, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dpld(pv) 

DPDRV(I) 

The derivative of p with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dpld(pw) 

DPDRW(I) 

The derivative of p with respect to pw, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

P i 

PONE 

Part 1 of the production rate of the turbulent kinetic energy 
(TURB20) 

Pi 

PTWO 

Part 2 of the production rate of the turbulent kinetic energy 
(TURB20) 

Pr, 

PRLR 

Reference laminar Prandtl number, c„ p r jk r , where 
Cpr = VrRI(Vr-\). (FLOW1) 

Pr -r 

PRR 

Reference Prandtl number, p r i^\k,T r . (FLOW1) 
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Pr, 

PRT 

Turbulent Prandtl number, or, if non-positive, a flag indicat- 
ing the use of a variable turbulent Prandtl number. (TURB1) 

AQ„. 

CHGAVG(I) 

Maximum change in absolute value of the dependent vari- 
ables, averaged over the last NITAVG time steps. The sub 
script 1=1 to A',,, corresponding to the A,, dependent 
variables. (TIME1) 


CHGMAX(I,J) 

Maximum change in absolute value of the dependent variables 
over a single time step. 4 The subscript I = 1 to N t „, corre- 
sponding to the Af„ dependent vanables, and J = 1 to 
NITAVG, the number of time steps used in the movmg av- 
erage option for determining convergence . (TIME 1 ) 

r 

Y(I1,I2) 

Cylindrical r coordinate. (METRIC 1) 

r 

RAX(I) 

Local radius r for axisymmetric flow. I is the grid index in the 
sweep direction, running from 1 to .V. (METRIC 1) 

Y* 

' max 

RMAX 

Maximum P coordinate coordinate for polar grid option. 
(GMTRY1) 

r* 

1 mm 

RMIN 

Minimum P coordinate coordinate for polar grid option. 
(GMTRY1) 

Ravg 

RESAVG(J.K) 

The average absolute value of the residual for the previous 
time step. The subscript J = 1 to N.„ corresponding to the 
N coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 

Rl 2 

RESL2(J,K) 

The Li norm of the residual for the previous time step. The 
subscript J = 1 to A 7 *,, corresponding to the coupled gov- 

erning equations, and K = 1 or 2, corresponding to the resi- 
dual computed without and with the artificial viscosity terms. 
(TIME1) 

Rrnax 

RESMAX(J,K) 

The maximum absolute value of the residual for the previous 
time step. The subscript J = 1 to V„, corresponding to the 
V coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 

R 

RG 

Dimensional gas constant. (FLOW1) 

R 

RGAS 

Nondimensional gas constant. (FL0W1) 

Re r 

RER 

Reference Reynolds number, puLlfir ■ (FL0W1) 


REXT1 

Reynolds number at the beginning of the transition region, 
based on maximum total velocity and distance from c = 0 , for 
flow predominantly in the q direction with a leading edge at 
( = 0. (TURB1) ' 


6 For the energy equation, the change in Er is divided by E T , - prRT r j(y, 1) + u}j 2, so that it is the same order 
of magnitude as the other conservation variables. 
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R e*,r 

REXT2 

Reynolds number at the beginning of the transition region, 
based on maximum total velocity and distance from y\ ~ 0, for 
flow predominantly in the y\ direction with a leading edge at 
>7 = 0. (TURB1) 

s 

SVECTl(I) 

Subvector of source terms in the block tridiagonal system of 
equations. In actual use, this one-dimensional array is equiv- 
alenced to the three-dimensional array S(IV,IS,J). IS is the 
grid index in the sweep direction, running from 1 to N. IV is 
the grid index in the "vectorized'' direction (i.e., the non-sweep 
direction in which the "BLK" routines are vectorized), and 
runs from 2 to N v — 1 . The subscript J = 1 to N eq > corre- 
sponding to the Neg coupled governing equations. (NUM1) 

At 

DT(I) 

The time step size, when specified directly as input. I is the 
time step sequence number, and runs from 1 to NTSEQ. 
(TIME1) 

T 

T(1 1,12) 

Static temperature at time level n. (FLOW1) 

T 

TL(I1,I2) 

Static temperature at previous or intermediate time level. 
(FLOW1) 

dTjdE T 

DTDET(I) 

The derivative of T with respect to E T , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dTjdp 

DTDRHO(I) 

The derivative of T with respect to p, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to V. (FLOW1) 

dTld(pu) 

DTDRU(I) 

The derivative of T with respect to pu, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to V. (FLOW1) 

dTld(pv) 

DTDRV(I) 

The derivative of T with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to V. (FLOW1) 

dTjd(pw) 

DTDRW(I) 

The derivative of T with respect to pw, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to V. (FLOW1) 

T r 

TR 

Dimensional reference temperature. ( F LOW 1 ) 

To 

TO 

Initial static temperature. (IC1) 

u 

U(1 1,12) 

Velocity in the Cartesian x direction at time level n. 
(FLOW1) 

u 

UL(I1,I2) 

Velocity in the Cartesian x direction at previous or interme- 
diate time level. (FLOW1) 

U r 

UR 

Dimensional reference velocity. (FLOW1) 

Uq 

uo 

Initial velocity in the Cartesian x direction. (IC1) 

V 

V(1 1 ,12) 

Velocity in the Cartesian y direction or cylindrical r direction 
at time level n. (FLOW1) 
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V 

VL(I1,I2) 

Velocity in the Cartesian y direction or cylindrical r direction 
at previous or intermediate time level. (FLOW1) 

Vo 

VO 

Initial velocity in the Cartesian y direction or cylindrical r di- 
rection. (IC1) 

w 

W(I1,I2) 

Swirl velocity at time level n. (FLOW1) 

w 

\VL(I1,I2) 

Swirl velocity at previous or intermediate time level. 
(FLOW1) 

w 0 

WO 

Initial swirl velocity . ( I C 1 ) 

X 

X(I1,I2) 

Cartesian x coordinate. (METRIC 1) 

Xmax 

XMAX 

Maximum x coordinate for Cartesian grid option. 
(GMTRY1) 

Xmin 

XMIN 

Minimum x coordinate for Cartesian grid option. 
(GMTRY1) 

y 

Y(1 1 ,12) 

Cartesian y coordinate. (METRIC 1) 

ymax 

YMAX 

Maximum y coordinate for Cartesian grid option. 
(GMTRY1) 

ymin 

YMIN 

Minimum y coordinate for Cartesian grid option. 
(GMTRY1) 

y + 

YPLUSD(I1,I2) 

Non-dimensional distance from the nearest solid wall. 
(TURB20) 

£ 

EPS(I) 

Convergence level to be reached. The subscript I = 1 to N eq , 
corresponding to the N eq dependent variables. (TIME1) 

£ 

E(I1,I2) 

Turbulent dissipation rate at time level n. (TURB20) 

£ 

EL(I1,I2) 

Turbulent dissipation rate at previous or intermediate time 
level. (TURB20) 

£?> 

CAVS2E(I) 

Second-order explicit artificial viscosity coefficient in constant 
coefficient model. The subscript I = 1 to N eq , corresponding 
to the N €q coupled governing equations. (NUM1) 

zf> 

CAVS4E(I) 

Fourth-order explicit artificial viscosity coefficient in constant 
coefficient model. The subscript I = 1 to N eq , corresponding 
to the N eq coupled governing equations. (NUM1) 

Zl 

CAVS2I(I) 

Second-order implicit artificial viscosity coefficient in constant 
coefficient model. The subscript I = 1 to N eq , corresponding 
to the N eq coupled governing equations. (NUM1) 

Vr 

ETA Y(1 1,12) 

The derivative of the computational coordinate y\ with respect 
to the cylindrical coordinate r. (METRIC 1) 

y\r 

METYl(I) 

The derivative of the computational coordinate rj with respect 
to the cylindrical coordinate r (second ADI sweep only.) In 
actual use, this one-dimensional array is equivalenced to the 
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two-dimensional array METY(IV,IS). IS is the grid index in 
the sweep direction, running from 1 to A\ IV is the grid index 
in the "vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
N v - 1. This is a real variable. (METRIC 1) 


Vr 

ETAT(I1,I2) 

The derivative of the computational coordinate r] with respect 
to untransformed time t. (METRIC 1) 

V t 

METTl(I) 

The derivative of the computational coordinate rj with respect 
to untransformed time t (second ADI sweep only.) In actual 
use, this one-dimensional array is equivalenced to the two- 
dimensional array METT(IV,IS). IS is the grid index in the 
sweep direction, running from 1 to N. IV is the grid index in 
the "vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
N v — 1. This is a real variable. (METRIC 1) 

n* 

ETAX(I1,I2) 

The derivative of the computational coordinate yj with respect 
to the Cartesian coordinate x. (METRIC 1) 

Vx 

METXl(I) 

The derivative of the computational coordinate >7 with respect 
to the Cartesian coordinate x (second ADI sweep only.) In 
actual use, this one-dimensional array is equivalenced to the 
two-dimensional array METX(IV,IS). IS is the grid index in 
the sweep direction, running from 1 to N. IV is the grid index 
in the "vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
N v — 1 . This is a real variable. (METRIC 1) 

V y 

ETA Y(1 1,12) 

The derivative of the computational coordinate r\ with respect 
to the Cartesian coordinate y. (METRIC 1) 

Vy 

METYl(I) 

The derivative of the computational coordinate r\ with respect 
to the Cartesian coordinate y (second ADI sweep only.) In 
actual use, this one -dimensional array is equivalenced to the 
two-dimensional array METY(IV,IS). IS is the grid index in 
the sweep direction, running from 1 to N. IV is the grid index 
in the "vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
V„ — 1. This is a real variable. (METRIC 1) 

A ; 7 

DEL 

Computational grid spacing in the y\ direction (second ADI 
sweep only.) (NUM1) 

Art 

DETA 

Computational grid spacing in the y\ direction. (NUM1) 

* K 

CVK ‘ 

Von Karman mixing length constant used in the inner region 
of the Baldwin- Lomax and Spalding- Kleinstein turbulence 
models. (TURB1) 

* *2 

CAVS2E(I) 

User-specified constant in nonlinear coefficient artificial 
viscosity model. The subscript I = 1 to N eq , corresponding to 
the N eq coupled governing equations. (NUM1) 

* k 4 

CAVS4E(I) 

User-specified constant in nonlinear coefficient artificial 
viscosity model. The subscript I — 1 to N eq , corresponding to 
the N eq coupled governing equations. (NUM1) 
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y r 

x 

m 


Mr 


Mr 


Mr 






fr 


6 


t* 




t, 

Zy 


GAMR 

LA(I1,I2) 

MU(I1,I2) 

MLR 

MUT(I1,I2) 

MUTL(I1,I2) 


Reference ratio of specific heats, c Pr jc Vr . (FL0W1) 

Effective second coefficient of viscosity at time level n (usually 
assumed equal to — 2^/3.) This is a real variable. (FL0W1) 

Effective viscosity coefficient at time level n . This is a real 
variable. (FLOW1) 

Dimensional reference viscosity coefficient. This is a real 
variable. (FLOW1) 

Turbulent viscosity coefficient at time level n . This is a real 
variable. (FLOW1) 

Turbulent viscosity coefficient at previous or intermediate 
time level. This is a real variable. (TURB20) 


XIY(I1,I2) 

METYl(I) 


XIT(1 1 ,12) 
METTl(I) 


XIX(11,I2) 

METXl(I) 


XIY(I1,I2) 

METYl(I) 


The derivative of the computational coordinate £ with respect 
to the cylindrical coordinate r. (METRIC 1) 

The derivative of the computational coordinate f with respect 
to the cylindrical coordinate r (first ADI sweep only.) In ac- 
tual use, this one-dimensional array is equivalenced to the 
two-dimensional array METY(IV,IS). IS is the grid index in 
the sweep direction, running from 1 to N. IV is the grid index 
in the "vectorized" direction (i.e., the non- sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
N, — L This is a real variable. (METRIC 1) 

The derivative of the computational coordinate £ with respect 
to untransformed time t . (METRIC 1) 

The derivative of the computational coordinate £ with respect 
to untransformed time t (first ADI sweep only.) In actual use, 
this one-dimensional array is equivalenced to the two- 
dimensional array METT(IV,IS). IS is the grid index in the 
sweep direction, running from 1 to N. IV is the grid index in 
the "vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
N v - 1. This is a real variable. (METRIC 1) 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate x. (METRIC 1) 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate x (first ADI sweep only.) In ac- 
tual use, this one-dimensional array is equivalenced to the 
two-dimensional array METX(IV,IS). IS is the grid index in 
the sweep direction, running from 1 to N. IV is the grid index 
in the "vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
N v — 1. This is a real variable. (METRIC1) 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate y. (METRIC 1) 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate y (first ADI sweep only.) In ac- 
tual use, this one-dimensional array is equivalenced to the 
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* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


two-dimensional array METY(IV.IS). IS is the grid index in 
the sweep direction, running from 1 to N. IV is the grid index 
in the "vectorized" direction (i.e., the non-sweep direction in 
which the "BLK" routines are vectorized), and runs from 2 to 
N,— 1. This is a real variable. (METRIC 1) 




DEL 

Computational grid spacing in the £ direction (first ADI 
sweep only.) (NUM1) 



DXI 

Computational grid spacing in the £ direction. (NUM1) 

P 


RHO(Il,I2) 

Static density at time level n. (FLOW1) 

P 


RHOL(Il,I2) 

Static density at previous or intermediate time level. 
(FLOW1) 

Pr 


RHOR 

Dimensional reference density. (FLOW1) 

o k 


SIGK 

Constant used in the diffusion term of the k equation. 
(TURB20) 

o t 


SIGE 

Constant used in the diffusion term of the t equation 
(TURB20) 

T 


TAU(I1,I2) 

Current value of the time marching parameter. (TIME1) 

At 


DTAU(I1,I2) 

Computational time step size. (TIME1) 

Or 

O max 


THMAX 

Maximum 0' coordinate in degrees for polar grid option. 
(GMTRY1) “ ~ 

Or 
O min 


THMIN 

Minimum 0' coordinate in degrees for polar grid option 
(GMTRY1) 

Ou e 2 


THC(I) 

A two-element array specifying the time difference centering 
parameters used for the continuity equation. (NUM1) 

Ox, e 2 


THKE(I) 

A two-element array specifying the time difference centering 
parameters used for the k-c equations. (NUM2) 

&2, 

e. 

THE(I) 

A three-element array specifying the time difference centering 
parameters used for the energy equation. (NUM1) 

01, @2, 

e 3 

THX(I) 

A three-element array specifying the time difference centering 
parameters used for the x-momentum equation. (NUM1) 

01, 02, 


THY(I) 

A three-element array specifying the time difference centering 
parameters used for the y or r-momentum equation. (NUM 1) 

01, 02, 

ex 

THZ(I) 

A three-element array specifying the time difference centering 
parameters used for the swirl momentum equation. (NUM1) 

i«l 


VORT(Il,I2) 

Total vorticity magnitude. (TURB1) 

l“l 


VORT(Il,I2) 

Production rate of turbulent kinetic energy. (TURB1) 
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4.0 PROTEUS SUBPROGRAMS 


In this section, each subprogram in Proteus is described, first in summary, then in detail. The summary 
is simply a list of the subprograms with a brief description of the purpose of each one. The detailed de- 
scription includes, for each subprogram, a list of the subprograms that reference it, and a list of the sub- 
programs that it references. The Fortran variables that are input to and output from each subprogram are 
defined. And finally, details of the computations being done within each subprogram are presented. 

4.1 SUBPROGRAM SUMMARY 


The follow 7 ing table presents a brief description of the purpose of each subprogram in the Proteus code. 


Proteus Subprogram Summary 

Subprogram 

Purpose 

ADI 

Manage the block tridiagonal inversion. 

AVISC1 

Compute constant coefficient artificial viscosity. 

AVISC2 

Compute nonlinear coefficient artificial viscosity. 

BCDENS 

Compute density boundary conditions. 

BCELIM 

Eliminate off-diagonal coefficient submatrices resulting from 
three -point boundary conditions. 

BCF 

Compute user- written boundary conditions. 

BCFLIN 

User- supplied routine for linearization of user- supplied boundary 
conditions. 

BCGEN 

Manage computation of boundary conditions. 

BCGRAD 

Compute gradients with respect to f and rj. 

BCMET 

Compute various metric functions for normal gradient boundaiy 
conditions. 

BCPRES 

Compute pressure boundary conditions. 

BCQ 

Compute conservation variable boundary conditions. 

BCSET 

Set various boundary condition parameters and flags. 

BCTEMP 

Compute temperature boundary conditions. 

BCUVEL 

Compute x- velocity boundary conditions. 

BCVDIR 

Compute normal and tangential velocity boundary conditions. 

BCWEL 

Compute y or r-velocity boundary conditions. 

BCWVEL 

Compute swirl velocity boundary conditions. 

BLIN1 

Compute inner layer turbulent viscosity along constant £ lines. 

BLIN2 

Compute inner layer turbulent viscosity along constant y\ lines. 

BLKOUT 

Print coefficient blocks at specified indices in the f and r\ di- 
rections. 

BLK2 

Solve 2x2 block tridiagonal system of equations. 

BLK2P 

Solve 2x2 periodic block tridiagonal system of equations. 

BLK3 

Solve 3x3 block tridiagonal system of equations. 

BLK3P 

Solve 3x3 periodic block tridiagonal system of equations. 
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Proteus Subprogram Summary 

Subprogram 

Purpose 

BLK4 

Solve 4x4 block tridiagonal system of equations. 

BLK4P 

Solve 4x4 periodic block tridiagonal system of equations. 

BLK5 

Solve 5x5 block tridiagonal system of equations. 

BLK5P 

Solve 5x5 periodic block tridiagonal system of equations. 

BLOCK DATA 

Set default values for input parameters, plus a few other parame- 
ters. 

BLOUT1 

Compute outer layer turbulent viscosity along constant £ lines. 

BLOUT2 

Compute outer layer turbulent viscosity along constant rj lines. 

BVUP 

Update first sweep boundary values after second sweep. 

COEFC 

Compute coefficients and source terms for the continuity equation. 

COEFE 

Compute coefficients and source terms for the energy equation. 

COEFS1 

Compute coefficients and source terms for the k and e equations 
for the first ADI sweep. 

COEFS2 

Compute coefficients and source terms for the k and c equations 
for the second ADI sweep. 

COEFX 

Compute coefficients and source terms for the ^-momentum 
equation. 

COEFY 

Compute coefficients and source terms for the y or r-momentum 
equation. 

COEFZ 

Compute coefficients and source terms for the swirl momentum 
equation. 

CONV 

Test computed flow field for convergence. 

CUBIC 

Interpolation using Ferguson's parametric cubic. 

EQSTAT 

Use equation of state to compute pressure, temperature, and their 
derivatives with respect to the dependent variables. 

EXEC 

Manage solution of the mean flow equations. 

EXECT 

Manage solution of the k-t equations. 

FILTER 

Rearrange rows of the boundary condition coefficient submatrices 
and the source term subvector to eliminate any zeroes on the di- 
agonal. 

FTEMP 

Compute auxiliary variables that are functions of temperature. 

GEOM 

Manage computation of grid and metric parameters. 

INIT 

Get user-defined initial flow field. 

INITC 

Set up consistent initial conditions based on data from INIT. 

INPUT 

Read and print input, perform various initializations. 

ISAMAX 

Find the first index corresponding to the largest absolute value of 
the elements of an vector. This is a Cray search routine. 

ISAMIN 

Find the first index corresponding to the smallest absolute value 
of the elements of an vector. This is a Cray search routine. 

ISRCHEQ 

Find the first index in an array whose element is equal to a speci- 
fied value. This is a Cray search routine. 

KEIMT 

Get user- defined initial conditions for k and e. 

MAIN 

Manage overall solution. 

METS 

Compute metrics of nonortho gonal grid transformation. 
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Proteus Subprogram Summary 

Subprogram 

Purpose 

OUTPUT 

Manage printing of output. 

OUTW 

Compute and print parameters at boundaries. 

PAK 

Manage packing and/or interpolation of grid points. 

PERIOD 

Define extra line of data for use in computing coefficients for spa- 
tially periodic boundary conditions. 

PLOT 

Write files for post-processing by CONTOUR or PLOT3D plot- 
ting programs. 

PRODCT 

Compute production term for the k-z turbulence model. 

PRTHST 

Print convergence history. 

PRTOUT 

Print output. 

RESID 

Compute residuals and write convergence history file. 

REST 

Read and/or write restart file. 

ROBTS 

Pack points along a line using Roberts transformation. 

SASUM 

Compute the sum of the absolute values of the elements of a vec- 
tor. This is a Cray BLAS routine. 

SGEFA 

Factor a matrix using Gaussian elimination. This is a Cray 
UNPACK routine. 

SGESL 

Solve the matrix equation Ax = B or A T x = B using the factors 
computed by SGEFA. This is a Cray LINPACK routine. 

SNRM2 

Compute the Li norm of a vector. This is a Cray BLAS routine. 

TBC 

Set time-dependent boundary condition values. 

TIMSTP 

Set computational time step. 

TRExMAIN 

Get CPU time remaining for the job. This is a Cray Fortran 
routine. 

TURBBL 

Manage computation of turbulence parameters using the 
Baldwin- Lomax algebraic model. 

TURBCH 

Manage computation of turbulence parameters using the Chien 
k-z model. 

UPDATE 

Update flow variables after each ADI sweep. 

UPDTKE 

Update k and z after each time step. 

VORTEX 

Compute magnitude of total vorticity. 

YPLUSN 

Compute the distance to the nearest solid wall. 


4.2 SUBPROGRAM DETAILS 


The subprograms used in Proteus are described in detail in the remainder of this section. A few addi- 
tional words are necessary about the input and output descriptions. The description of the input to each 
subprogram includes all Fortran variables actually used by the subprogram that are defined outside the 
subprogram. Variables defined and used inside the subprogram are not listed as input. In addition, com- 
mon block variables that are merely passed through to lower level routines are not listed. Variables marked 
with an asterisk are user-specified namelist input variables. 

Similarly, the output description includes only those variables computed inside the subprogram and used 
outside the subprogram. It does not include common block variables computed by lower level routines. 
In general, variables defined inside the subprogram that are used by lower level routines are listed as output, 
even if they are not needed after control is returned to the calling program. 
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Variables entering or leaving a subprogram through an argument list are defined in detail. However, 
most of the Fortran variables listed in the input and output descriptions are contained in common blocks, 
and are defined in detail in Section 3.0. For that reason, they are defined only briefly in this section. 
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Subroutine ADI (A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

EXEC 

BLKOUT 

BLK3 

BLK3P 

BLK4 

BLK4P 

BLK5 

BLK5P 

Manage the block tridiagonal inversion. 


Input 


A, B, C 

Coefficient submatrices A, B, and C. 

IDEBUG 

Debug flags. 

IPRT1A, IPRT2A 

Indices for printout in the f and y\ directions. 

ISWEEP 

Current ADI sweep number. 

IT 

Current time step number n. 

KBCPER 

Flags for spatially periodic boundary conditions in the £ and r\ 
directions; 0 for non-periodic, 1 for periodic. 

NEQ 

Number of coupled equations being solved, N eq . 

NOUT 

Unit number for standard output. 

NPRT1, NPRT2 

Total number of indices for printout in the £ and rj directions. 

NVD, NPTSD 

Leading two dimensions for the arrays A, B, C, and S. 

S 

A 

Source term subvector S, and computed solution subvector, AQ' 
or AQ". 


Output 


None. 

Description 

For each ADI sweep, subroutine ADI calls the appropriate block solver. The choice is determined by 
the number of equations being solved, and by the presence or absence of spatially periodic boundary con- 
ditions in the sweep direction. 

Remarks 

1. This subroutine generates the output for the IDEBUG(l), IDEBUG(5), and IDEBUG(6) options. 
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Subroutine AVISC1 (A,B,C,S,NVD,NPTSD) 


Called by 

Calls 

Purpose 

EXEC 

BLKOUT 

Compute constant coefficient artificial viscosity. 


Input 

A, B, C 

* CAVS2E, CAVS4E, CAVS2I 
DTAU 

* IAV2E, IAV4E, IAV2I 

* IDEBL'G 

* IHSTAG 

* IPRT1A, IPRT2A 
ISWEEP 

* ISWIRL 
IT 

JI 

NC, NXM, NYM, NZM, NEN 

* NOUT 
NPRT1, NPRT2 
NPT1, NPT2 

NR, NRU, NRV, NRW, NET 

NVD, NPTSD 
RHO, U, V, W, ET 

S 


Coefficient submatrices A, B, and C without artificial viscosity. 
Artificial viscosity coefficients sg>, ef\ and tj. 

Time step At. 

Flags for second-order explicit, fourth-order explicit, and second- 
order implicit artificial viscosity. 

Debug flags. 

Flag for constant stagnation enthalpy option. 

Indices for printout in the £ and rj directions. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Current time step number n. 

Inverse Jacobian of the nonorthogonal grid transformation, J *. 

Array indices associated with the continuity, x-momentum, 
^-momentum (or r-momentum if axisymmetric), swirl momen- 
tum, and energy equations. 

Unit number for standard output. 

Total number of indices for printout in the f and r\ directions. 

A) and N 2 for non-periodic boundary conditions, N\ + 1 and 
N 2 + 1 for spatially periodic boundary conditions in c and > 7 . 

Array indices associated with the dependent variables p, pu, pv, 
pw, and Et- 

Leading two dimensions for the arrays A, B, C, and S. 

Static density p , velocities u, v, and w, and total energy E T at time 
level n. 

Source term subvector S without artificial viscosity. 


Output 


A, B, C 
S 


Coefficient submatrices A, B, and C with artificial viscosity. 
Source term subvector S with artificial viscosity. 


Description 


Subroutine AVISC1 adds explicit and/or implicit artificial viscosity to the governing equations, usmg the 
constant coefficient model of Steger (1978), as presented by Pulliam (1986b). The model is described in 
Section 8.1 of Volume 1. The explicit artificial viscosity may be second and/or fourth order, and is added 
only during the first ADI sweep. The implicit artificial viscosity is second order, and is added during both 
sweeps. 
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The fourth-order explicit artificial viscosity is implemented in Fortran by redefining the source term 
subvector as 


— Sf j 


^E^iJ 

hj 


[(V ? A 5 ) 2 Qi . ; + (V A ) 2 Q u ] 


where i and j vary from 3 to NPT1 - 2 and from 3 to NPT2 - 2, respectively. At grid points adjacent to 
boundaries the fourth-order differences in the above equation cannot be used, and therefore are replaced 
by second-order differences. Thus, at i = 2 and at / = NPT1 - 1, with j varying from 3 to NPT2 - 2, 


S(j — S ij + 




-‘.J 




Similarly, at j = 2 and at j = NPT2 - 1 , with / varying from 3 to NPT 1 - 1 , 

s u = s u + — /rr 1 1 - WQy + v 


<.y 


The second-order explicit artificial viscosity is implemented in Fortran by redefining the source term 
subvector as 


ef>Ar /y . 

s u = s u + — jrf- (v&Q ij + V„Q iJ 

where / andy vary from 2 to NPT1 - 1 and from 2 to NPT2 - 1, respectively. 

The second-order implicit artificial viscosity for the first ADI sweep is implemented in Fortran by re- 
defining the coefficient block submatrices as 


*A r i j 

A- . = A. - — I 

^ J. 

B u = B iJ+ 2 ^Lj s , 


J ■ ~ l ' J 


c = c - 

'■'IJ ^ l,J 


e I A t U 


J. . * + \,J 


where i and j vary from 2 to NPT1 - 1 and from 2 to NPT2 - 1, respectively. Similarly, for the second 
sweep, 


«/At i i 

A- ■ = A- • — — — / 

*iJ f 1 

S/AT; : 

®/,y = B i,y + 2 ~j Jij 
J ij 

e A r i i 

r = C ■ - j 

lJ l ’J J U+1 


Remarks 


1. The sign in front of each artificial viscosity term depends on the sign of the "ij" term in the difference 
formula. See Section 8.1 of Volume 1 for details. 
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2. The coding to add artificial viscosity to the energy and/or swirl momentum equations is separate from 
the coding for the remaining equations, and is bypassed if they are not being solved. 

3 The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sweep (i.e., "vectorized") direction, and the second subscnpt is the index m the sweep 
direction. For the first sweep (which includes all the explicit artificial viscosity) the order is thus (12,11), 
and for the second sweep the order is (11,12). 

4. For spatially periodic boundary conditions in the ? direction, fourth-order differences could be used at 
1-2 and at i = NPT1 — 1 ( = iV,). Similarly, for the t] direction, fourth-order differences could be used 
at j = 2 and at j= NPT2 - 1 ( = N 2 ). The logic to do this has not been coded, however, and at these 
points second-order differences are still used, as described above. 

5. This subroutine generates the output for the IDEBUG(2) option. 


56 


4.0 Proteus Subprograms: A VISC 1 


Proteus 2-D Programmer's Reference 



Subroutine AVISC2 (A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

EXEC 

BLKOUT 

Compute nonlinear coefficient artificial viscosity. 


Input 


A, B, C 

* CAVS2E, CAVS4E 
CP, CV 

DTAU 

DXI, DETA 

ETAX, ETAY, ETAT 

* IAV2E, IAV4E 

* IDEBUG 
+ IHSTAG 

* IPRT1A, IPRT2A 
ISWEEP 

* ISWIRL 
IT 

JI 

NC, NXM, NYM, NZM, NEN 


* NOUT 

NPRT1, NPRT2 
NPT1, NPT2 

NVD, NPTSD 
P, T 
RGAS 

RHO, U, V, W, ET 
S 

XIX, XIY, XIT 


Coefficient submatrices A, B, and C. 

User-specified coefficients k 2 and k 4 * 

Specific heats c p and c v at time level n. 

Time step At. 

Computational grid spacing A£ and A rj. 

Metric coefficients yj x , rj y (or r\ r if axisymmetric), and rj t . 

Flags for second-order and fourth-order explicit artificial viscosity. 
Debug flags. 

Flag for constant stagnation enthalpy option. 

Indices for printout in the £ and rj directions. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Current time step number n. 

Inverse Jacobian of the nonorthogonal grid transformation, /~ l . 

Array indices associated with the continuity, x-momentum, 
^-momentum (or r-momentum if axisymmetric), swirl momen- 
tum, and energy equations. 

Unit number for standard output. 

Total number of indices for printout in the £ and rj directions. 

N\ and N 2 for non-periodic boundary conditions, N\ + 1 and 
N 2 + 1 for spatially periodic boundary conditions in £ and y\. 

Leading two dimensions for the arrays A, B, C, and S. 

Static pressure p and temperature T at time-level n. 

Gas constant R . 

Static density p, velocities w, v, and w, and total energy E T at time 
level n. 

Source term subvector S without artificial viscosity. 

Metric coefficients (or <J r if axisymmetric), and £ r . 


Output 

S Source term subvector S with artificial viscosity. 

Description 

Subroutine AVISC2 adds explicit artificial viscosity to the governing equations, using the nonlinear co- 
efficient model of Jameson, Schmidt, and Turkel (1981), as presented by Pulliam (1986b). The model is 
described in Section 8.2 of Volume 1. Implicit artificial viscosity is not normally used in combination with 
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the explicit nonlinear coefficient model. The explicit artificial viscosity is added only during the first ADI 
sweep. 

The artificial viscosity in the q direction is computed first, at the ^-indices j= 2 to NPT2- 1. The 
spectral radius term xj/ij and the pressure gradient scaling factor c it; are computed and stored in local one- 
dimensional arrays for / = 1 to NPT1. Special formulas are used to compute a near boundaries, as described 
in Section 8.2 of Volume 1. 

The second-order artificial viscosity is added first, and is implemented in Fortran by redefining the source 
term sub vector as 



Or, after evaluating the differences, 


&ij — &ij 


w+Rt) + (t) lofWu-<W 

7 i + IJ V 7 i,y = 

- (t) + (t) l('f ’)■ - 1 -Qi-tJ 


where i varies from 2 to NPT1 — 1. 

The fourth-order artificial viscosity is added next, and is implemented similarly by redefining the source 
term subvector as 


\j = s u - V f 


Or, after evaluating the differences, 


F(t) ■ 


(■f’XAVA, 


s,j=Sy- ( /■/ ) 3 Q/+ij + 

7 /+i,y v 7 i,y_ 

+ ( - j ) + (t) (4 4) )/ - 1 ./ Qf + 1 J- 3Q u + 

7 ij ' 7 i — 1 J_ 


3Q u-Qi-ij) 


j - 3Q IJ + 3 Q, - l ,j— Qi - 2,y) 


where / varies from 3 to NPT1 — 2. Special formulas are used at / = 2 and at i = NPT1 — 1, as described 
in Section 8.2 of Volume 1. 

The artificial viscosity in the r\ direction is computed next, and is implemented in a manner analogous 
to that just described for the artificial viscosity in the £ direction. 


Remarks 

1 . The sign in front of each artificial viscosity term depends on the sign of the "ij" term in the difference 
formula. See Section 8. 1 of Volume 1 for details. 

2. The coding to add artificial viscosity to the energy and/or swirl momentum equations is separate from 
the coding for the remaining equations, and is bypassed if they are not being solved. 

3. The subscripts on the Fortran variable S may be confusing. The first subscript is the index in the 
non-sweep (i.e., "vectorized") direction, and the second subscript is the index in the sweep direction. 
For the first sweep (which includes all the explicit artificial viscosity) the order is thus (12,11). 
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4. For spatially periodic boundary conditions, the need for special formulas near boundaries could be 
eliminated. The logic to do this has not been coded, however. 

5. This subroutine generates the output for the IDEBUG(2) option. 
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Subroutine BCDENS (IBC, FBC, IEQ, IMIN, IMAX, IBOUND, A,B,C,S, NVD, NPTSD) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute density boundary conditions. 


Input 


DEL 

IBASE, ISTEP 
IBC, FBC 


IBOUND 


IEQ 

IMIN, IMAX 
ISWEEP 
IV 
JI 

+ NOUT 
NR 

N V D, NPTSD 
RHO 

Output 

A, B, C 

S 


Description 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to N eq , corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "Vectorized" direction, 

Inverse Jacobian of the nonorthogonal grid transformation, J~ 
Unit number for standard output. 

Array index associated with the dependent variable p. 

Leading two dimensions for the arrays A, B, C and S. 

Static density p at time level n . 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term sub vector S at boundary IBOUND (element IEQ 
only). 


Subroutine BCDENS computes coefficients and source terms for density boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 6.0 of 
Volume 1. The following sections apply these generalized equations to the particular density boundary 
conditions in Proteus ? 


7 In the following description, for the first ADI sweep the dependent variable should have the superscript *, repres- 
enting the intermediate solution, and for the second ADI sweep it should have the superscript n y representing the 
final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables are 
correct as written. 
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No Change From Initial Conditions, Ap = 0 

Applying equation (6.3) of Volume 1, and noting that dgjd Q = Jdg/dQ, we get simply 

Ji,j*Kj = Q 

Specified- Static Density , p = f 

Applying equation (6.5) of Volume 1, 

J hj A Pi.j=fi,j ~PiJ 

Specified Two- Point Density Gradient in Coordinate Direction , dpjd<j> ~ f 

Applying equation (6.8) of V olume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 

-Ki^h+ hj tih - «/ 1 + fij - P2j 

At the c = 1 boundary, 


-y 




i-i J Ap 'k - W + j n x ,j A Av„y = (WZj 1 + p n Nl _ ! j - p\ 


Analogous equations can easily be written for the rj boundaries. 

Specified Three- Point Density Gradient in Coordinate Direction, dpldd> = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 
ing, 

- 3y i J A P i j + 4J 2J - hj ApJ J = 2CAQ/17/ 1 + 3^ y - - 4p*j + pj ty 

At the (J — 1 boundary, 

- 2,7 'V.V, - 2,7 - 4 //V, - 1,7 - 1 J + 3^,7 A PAt„y = 2 ( A £) |/tf, j ' ~ P^ _ 2,7 4 4 PA', _ 1,7 “ 3 py,,/ 

Analogous equations can easily be written for the r/ boundaries. 

Specified Two-Point Density Gradient in Normal Direction , Vp.Jj = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 




A* 




1 J 


wi + 1 + ^>)l,y 


ij 


S « I I « « 

VU + ^lj"/ > 2 # y 


where 


m = %/^ 2 + 1} 


and <5, is the centered difference operator presented in Section 5.0 of Volume 1. At the S = 1 boundary, 


-J 


NS, 




„ + 1 (£x»bc + 


AW 




C 77 

V*w 


+ - 1,7 - P.V„7 


Analogous equations can easily be written for the rj boundaries. 
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Specified Three- Point Density Gradient in Normaf Direction, Vp • n = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 


encing, 


- 3 J x j Ap " j + 4J 2 j Apij - J 3 j A p 3 j — 


2 A£ 


m 


i J 


r n + 1 

n,j — 


(Zxlx + 


: + £y t ly)\,j £ n 

~rnf~ VU 


+ 3PW-4P2J + P3J 


where 


m = 


' = y/£x+ 

and d, is the centered difference operator presented in Section 5.0 of Volume 1. At the £ = 1 boundary, 
-2,7 a Ay, - 2 J - AJ n, - U - U + iJ ^.J Ap kj = 

-fn^~ [A-, J 7%"7 V*wJ - - 2,7 + 4p *i - U 3p *W 

Analogous equations can easily be written for the >7 boundaries. 

Linear Extrapolation of Static Density 

Applying equation (6.14) of Volume 1 at the £ — 0 boundary, 

J\J Ap\j - 2/ 2 ,7 Ap 2J + y 3,7 Ap 3,7 = “ P hJ + 2p 2,7 " 

At the { = 1 boundary, 

J Nl - 2,7 A P Y, - 2,7 ~ 21 N x - t ,7 Ap \ - W + Ap *W = ~ P AT, - 2,7 + 2p iV, - 1J “ PA 'l./ 

Analogous equations can easily be written for the >7 boundaries. 


Remarks 

1 This subroutine uses one-dimensional addressing of two-dimensional arrays, as descnbed in Section 2.3. 
2. An error message is generated and execution is stopped if a non-existent density boundary condition is 
specified. 
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Subroutine BCELIM (A,B,C,S,NVD,NPTSD) 


Called by 

Calls 

Purpose 

EXEC 


Eliminate off-diagonal coefficient submatrices resulting from three- 
point boundary conditions. 


Input 

A, B, C 


IBCELM 


ISWEEP 

IV 

NEQ 

NEQP 

NPTS 

NVD, NPTSD 
S 

Output 

A, B, C 



Coefficient submatrices A, B, and C before eliminating off- 
diagonal blocks. 

Flags for elimination of off-diagonal coefficient submatrices re- 
sulting from three-point boundary conditions in the £ and rj di- 
rections at either boundary; 0 if elimination is not necessary, 1 if 
it is. 

Current ADI sweep number. 

Index in the "vectorized" direction, i 

Number of coupled equations being solved, N eq . 

Dimensioning parameter specifying maximum number of coupled 
equations allowed. 

Number of grid points in the sweep direction, N. 

Leading two dimensions for the arrays A, B, C, and S. 

Source term subvector S before eliminating off-diagonal blocks. 


Coefficient submatrices A, B, and C after eliminating off- 
diagonal blocks. 

Source term subvector S after eliminating oT-diagonal blocks. 


Subroutine BCELIM eliminates the off-diagonal coefficient submatrices that result from the application 
of three-point boundary conditions. This is necessary when three-point gradients are specified in the coor- 
dinate or normal direction, and when linear extrapolation is used. The procedure is described in Section 
7.2.1 of Volume 1. 


Remarks 

1. Subroutines SGEFA and SGESL are Cray LINPACK routines. In general terms, if the Fortran arrays 
A and B represent A and B, where A is a square N by N matrix and B is a matrix (or vector) with 
NCOL columns, and if the leading dimension of the Fortran array A is LDA, then the Fortran se- 
quence 

call sgefa (a, Ida ,n,ipvt,info) 
do 10 j = l,ncol 

call sgesl (a, Ida ,n , ipvt ,b( 1 , j) , 0) 

10 continue 


computes A - ! B, storing the result in B. 
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Subroutine BCF (IBC,FBC, IEQ, IMIN,IMAX, IBOUND, A,B,C,S,N\ D,NPTSD) 


Called by 

Calls 

Purpose 

BCGEN 

BCFLIN 

BCMET 

Compute user- written boundary conditions. 


Input 

DEL 

IBASE, ISTEP 
IBC, FBC 


IBOUND 

IEQ 

* IHSTAG 
IMIN, IMAX 
IS WEEP 

* ISWIRL 
IV 

JI 

* NOUT 

NR, NRU, NRV, NRW, NET 
NVD, NPTSD 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(1 J), where I runs from 
1 to N eq , corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Flag for constant stagnation enthalpy option. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Index in the "vectorized" direction, i v . 

Inverse Jacobian of the nonorthogonal grid transformation, J '. 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu, pv, 
pw, and Et- 

Leading two dimensions for the arrays A, B, C, and S. 



Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 


Subroutine BCF computes coefficients and source terms for user-written boundary conditions of the 
form AF = 0, F=f dFjd? =/, and VF- n=f The values of F and its derivatives with respect to the de- 
pendent variables must be supplied by the user- written subroutine BCFLIN. The linearized equations for 
these types of boundary conditions are developed in Section 6.0 of Volume 1. The following sections ex- 
pand these generalized equations in detail. 8 


8 In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript n, representing 


64 4.0 Proteus Subprograms: BCF 


Proteus 2-D Programmer's Reference 



No Change From Initial Conditions , A F — 0 


A 

Applying equation (6.3) of Volume 1, and noting that dgjdQ = Jdgld Q, we get simply 

'’ y L ^ 


J < ' I ^^ + ^A ( ;,) + ^A(;v) + ^A(pw) + ^A£ r ] =0 


d(pw) 


d(pv) 


d(pw) 


Specified Value , F = f 

Applying equation (6.5) of Volume 1, 


i y L d P 


j | KJ1 A A , 3F A / A \ i A / A \ i 

Ju\ — A P + *&>“> + ~d(rt A(pv) + 5(^) 


+ = 4 y + '-n” 


Specified Two-Point Gradient in Coordinate Direction , dFld<j> = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary’, and using two-point one-sided differencing, 


-Kj\_ 

*j[ 


dF A A , aF A/ A , , aF A , A , . dF A/ A , , aF a £ , , 

f 01 ’ ^ rl 


dF A a aF A , A , , aF A/ , dF A/ A , . a£ A a 

a7 + ^ + M ’ + ^ 4( ^ w) + a£7 4£r 


T 

J lj 

•T - 

-J? ; 


(A^ +, +F,y-F 2 y 

At the £ = 1 boundary, 


J N X -\J 


dF K a , dF A / A N , dF A , A x , dF A / A ^ 
^ 4,1 + Hpu) + 4( ' v) + 4( ' > "’ ) ■ 




r j£. 

■ y L dp 


i aF A a£ A aF A 

Ap + -s^r a (p“) + A(pv) + A(pw) + 


aF 

dE r 

dF 


d( P u) 


d( P v) 


d(pw) 


AF 


A 

AF 


dE T “~ r 


■T 

J ■ 

- 1 V / 


4- 




Analogous equations can easily be written for the y\ boundaries. 

Specified Three- Point Gradient in Coordinate Direction , dFjd<j> — f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 
ing, 


the final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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,, r dF A A , dF A/ A , , dF A , A N , dF A/ A „ , dF A £ 1 , 

- 37, ,• -r— Ap + — — - A (pu) + — — - A(pv) + — — - A (pw) + — — A E r + 

1,7 L d P a (P w ) < 3 (pv) VfW a(pw) a£ r 'J 

■J- 

J 2J 


47 


4 


a£ 


dF 


dp r a(p«) 


a£ 


a£ 


aF 


A P + A (P“) + A(pv) + A(pw) + A£ r 


a(pv) 


, r 5£ A A , a£ A/ A , . dF a/ a , , a£ A/ A „ , dF A £ 

^ L ^ Ap + ai^T A(pw) + a(^T A(pv) + Ifowf A(pH,) + a£7 A£r 


3 - 7 1 a P 1 d(pu ) ~ Kr ~' ' d(pv) 

2(AZ]f ] n f' + 3F” j -4F 2 n j + F 3 n J 

At the £ = 1 boundary, 


d(pw) 

dF 

d(pw) 


■I- 

J 3 J 


dF A a, a£ a/ a , . a£ a , a n , a£ a , a ,. a£ Ar 

-aP * + ai^T ^ + IS) 4( ' >v) + ai^T 4( ' , "' ) + afT 4£r 


a(pw) 


a(pv) 


a(pw) 


47, 


a£ A a , dF 

dp Ap + a(p«) 


dF . ^dF 

a(pv) (pv) a(pw) 


a£ 


*1-27 


V - u [ ■ ^ ^ + agT ^ - + a^ + afe- A(p ~> + ^ ^ 


2(A«/$} ‘ - ^ - 2 j + 4FA - I,; - 3^,7 


.a, af ..a,, af ,, A , . af af 

4 ' + W 4( '" ,+ M 4(>> 1 + ai^T 4(£W> + ac 


■J 

J A T , 

J 

“y i - l J 

] n 

= 

v. / 


+ 


Analogous equations can easily be written for the r? boundaries. 

Specified Two-Point Gradient in Normal Direction L VF » n = f 

Applying equation (6.12a) of Volume 1 at the <J = 0 boundary, and using two-point one-sided differ- 
encing, 


-7 

Jhj i dp 

4 


A P + aff a a (p u ) + a (p v ) + -57~“7 a (p w ) + ~H~ AE t I + 


a(p«) 


a(pv) 


a(pw) 


'] 


1 J 


^ I ■^ 4 ' + sm 4 * + JM 4 ^ + a^ 4 <-> + € ^ - 


a P 

A£ 

™1,7 


a(pv) 


\* + l (^A + Wl,i £ 

/l J J 


d{pw) 

+ Kj-Ki 


where 

m = JJJ+ f 2 

and <5, is the centered difference operator presented in Section 5.0 of Volume 1. At the £ = 1 boundary, 
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- ■'v, - u [ C + ^ + a£5T 4( '”’ ) + 4( ' ,w) + it ' 4£r 


a(pw) 


a(pv) 


a(pw) 


j 

y *w|_ 




aF , , A . . aF 

a(pv) A(pv) + a(pw) 


oF A 

r» 

'T 


•I 

T - 

-J v. ; 


+ 


A£ 

™AW 


\*4 1 «***+ e ‘ 

■'W'lJ m V*iJ 




Analogous equations can easily be written for the r\ boundaries. 

Specified Three-Point Gradient in Normal Direction , Vf ■ ft = / * 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 


-37,1 ^A^# T A(p^) + ^A(A) + 1 ^A(p A w) + ^A£ r T 4 

1,y l _ dp y d(pu) a(pv) vr/ a(pw) ^ dE T ‘} x J 

4J 2 j [~ Ap + A(pu) 4 ~J(~r A(pv) 4 A(pw) 4 AF r ] - 

2 -^|_ap K a(p«) a(pv) VK a(pw) a£ r J J, . 

dF 

dp 


J 2,y 


[ly Ap + a^f A(pw) + ~w> A(pv) + ~ih A(pw) + ~^ AEr \ 

a > y 


171 


d(pu) v "' / ■ a(pv) 

(Zxlx + ZyVy) 1 


fr«4 1 (^x+^)l,y £ , , r * Ar n , r n 

-J /l.y m^j Vu +3F 1J -4F 2 ,y4/ 3J 


where 




= 7^ 2 + f y 


and is the centered difference operator presented in Section 5.0 of Volume 1 . At the £ = 1 boundary, 


47 


r dF 

>- ,J L dp 


dF A a , dF A ( A x , dF A f A ^ 
a7 Ap + ~d(pU) A(pw) + 1^0* A pv 


a a . aF a/ a aF 
Ap + ~a7~TT A (pw) + 


Ap 4 


a(pu) 

aF 

a(pw) 


A(pw) 4 


a(pv) - ■ 

aF A 


a(pv) 


+ 

d(pw) 

1 

dF 

I 

d(pw) 

+ 

dF 


a a 

A(pw)+ 5F^ A£r 


” 2J 


A A 




J 

— * A 

■J 

J A r i-U 

■T - 

— * .v ; 


2A£ 


^v,j 


' „ + , (Zx>lx+ Zyly) 

*N\ J 


:+ Zyfly) jV 1( y £ ,/nr^ 

~7%~ V*W ~ F ^-2j + 4F A^-1J” 3J > 1 , 


Analogous equations can easily be written for the yj boundaries. 
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Linear Extrapolation 


— r it - — v 


j I dF a a , dF 
il J L dp Ap+ d(pu) 




J uj[i 

r dF .A , dF 
M dp P+ d(pu) 

Ap + -r^T- A (pu) + -rp- A(pv) + J F A (pw) + -jf- 
dp d{p u ) d(pv) d(pw) dEf 


At the £ = 


j 4 t 

-K 

■■ 1 boundary, 


5f ./ u Jf 

\pu) ^ d(pv) 

A dF .£ Y 

^I AE t\ 

J 3J 


dF A , A X , dF A/ A , , dF 

A PV d(^j~ A(PW) ~dE^ 

A 


- J 2J 

n 


n 


Kj +2F 2J-^J 


J *i - 2.7 [ “ 


dF .A , dF 
dp P d(pu) 


dF A , A , . dF A , A , , dF a £ " 
d(H A(pv) + "d(pwj" A(pw) + di; A£ r 


iY l 

Analogous equations 

Remarks 


i T dF a a dF 
J "i’j |_ dp Ap + d(pw) 

F ^j 


if a/\xJL 

?(pu) pU d(pv) 

A 5F .A T 
iFT A£ H 

■ j a , i - i.y 


^ - u [ -f - ^ + A(> " 1 + M 40 ”’ ) + ai^T A( '“' ,) + 


vj ■ 

J A r i-2J 


+ 


r^- A(pu) + A(pv) + -^r A(pw) + A£ r l = 
i(p«) vr d(pv) d(pw) dE T J 


£ V 1 -2J + ^,-W 

easily be written for the rj boundaries. 


can < 


1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. An error message is generated and execution is stopped if a non-existent user-written boundary condi- 
tion is specified. 
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Subroutine BCFLIN (IBC, IEQ, IBOUND, IMIN, IMAX, F,DFDRHO,DFDRU,DFDRV,DFDRW. 


DFDET, FBCM, FBCP, FBC) 

Called by 

Calls 

Purpose 

BCF 


User- supplied routine for linearization of user-supplied boundary con- 
ditions. 


Input 


IBASE, ISTEP 
IBC 


IBOUND 

IEQ 

IMIN, IMAX 
ISWEEP 
II, 12 
NIP 

Output 


Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Mean flow boundary condition types for current sweep direction, 
specified as IBC(I,J), where I runs from 1 to N eq , corresponding 
to the N eq conditions needed, and J = 1 or 2, corresponding to the 
lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Grid indices i and y, in the £ and rj directions. 

Parameter specifying the dimension size in the £ direction. 


DFDRHO, DFDRU, DFDRV, Three-element arrays, specified as DFDRHO(IW), etc., giving 

DFDRW, DFDET the values of dFjdp , dF/d(pu) y dFld(pv), dF/d(pw) 9 and dFjdEr, 

F A three-element array specified as F(I\V) giving the value of the 

function /'at the boundary (IW = 1), at the first point away from 
the boundary (IW = 2), and at the second point away from the 
boundary (IW = 3). Values at IW = 3 are not needed for bound- 
ary condition types 91, 92, or - 92. Values at IW = 2 are not 
needed for boundary condition type 91. 

FBC Boundary condition values for current sweep direction, specified 

as FBC(I r J), where I runs from 1 to N fqy corresponding to the N cq 
conditions needed, and J = 1 or 2, corresponding to the lower and 
upper boundaries. This is only needed if values for GBC1 or 
GBC2, or FBC1 or FBC2, are not specified in the input namelist 
BC. 

FBCM, FBCP Boundary condition values on the boundary, at the grid points 

"below" and "above" the current boundary point. These are only 
needed for boundary condition types ± 93. 


Description 

Subroutine BCFLIN is a user- written routine used in conjunction jvith subroutine BCF for user- written 
boundary conditions of the form AF— 0, F= f dFjd<t> =/ and VF. n =/ BCFLIN supplies the values of 
F and its derivatives with respect to the dependent variables, which are required for writing the linearized 
form of the boundary condition. 
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The version of BCFLIN supplied with Proteus makes BCF equivalent to BCTEMP, except for the total 
temperature options in BCTEMP. Thus F= T, dFjdp = dTfdp , etc., where T and its derivatives with re- 
spect to the dependent variables are computed usmg the perfect gas equation of state. (See Section 43 
V^l ume i.) This version of BCFLIN is intended as an example for use in codmg boundary- conditions not 

already available. 

Remarks 

1 This subroutine uses one-dimensional addressing of two-dimensional arrays, as descnbed m Section 23. 

2 The capability of specifying FBC as an output variable may be useful in wnting time-dependent 
boundary conditions^ It also may be used when specifying boundary conditions involving 

in both coordinate directions. In this case, the denvatives in the non-sweep direction may be lagged 
one time step and treated as source terms. 
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Subroutine BCGEN (A, B>CS, METX, METY, METT, NVD, NPTSD) 

Called by 

Calls 

Purpose 

BVUP 

EXEC 

BCDENS 

BCF 

BCPRES 

BCQ 

BCTEMP 

BCUVEL 

BCVDIR 

BCVVEL 

BCWVEL 

BLKOUT 

ISRCHEQ 

Manage computation of boundary conditions. 


Input 

A, B, C 

* FBC1, FBC2 

* IBC1, IBC2 

* IDEBUG 

* IPRT1A, IPRT2A 
ISWEEP 

IT 

IV 

II, 12 

METX, METY, METT 

NBC 

NEQ 

* NOUT 
NPRT1, NPRT2 
NVD, NPTSD 

* Nl, N2 
S 

Output 

IBC, FBC 


IBOUND 


Coefficient submatrices A, B, and C. 

Point-by-point mean flow boundary condition values for the £ 
and y\ directions. 

Point-by-point mean flow boundary condition types for the £ and 
*1 directions. 

Debug flags. 

Indices for printout in the £ and y\ directions. 

Current ADI sweep number. 

Current time step number n. 

Index in the 'Vectorized" direction, 4- 

Grid indices i and j, in the £ and y\ directions. 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y (or r if axisymmetric), and /. 

Dimensioning parameter specifying number of boundary condi- 
tions per equation. 

Number of coupled equations being solved, N tq . 

Unit number for standard output. 

Total number of indices for printout in the £ and y] directions. 
Leading two dimensions for the arrays A, B, C, and S. 

Number of grid points N x and V 2 , in the £ and y\ directions. 

Source term subvector S. 


Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to N eq , corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 
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IEQ 

IMIN, IMAX 


Boundary condition equation number, from 1 to N eq . 
Minimum and maximum indices in the sweep direction. 


Description 

Subroutine BCGEN manages the computation of coefficients and source terms for the mean flow 
boundary conditions. It first loads the NEQ boundary condition types and values from the input arrays 
IBC1 and FBC1, or IBC2 and FBC2, depending on the ADI sweep, into the arrays IBC and bBC. lhis 
was done so that the BC routines could be non-sweep dependent. Next the coefficient submatnces and 
source term subvectors at the two boundaries in the current sweep direction are initialized to zero. And 
finally, the appropriate BC routine is called, depending on the input boundary condition type, ior each ol 
the NEQ boundary conditions at each boundary in the sweep direction. 

Remarks 

1 . An error message is generated and execution is stopped if any of the non-existent boundary condition 
types 80-89 is specified, or if the boundary condition type is less than 0 or greater than 99. 

2. The Cray search routine ISRCHEQ is used in determining the grid locations for debug printout. 

3. This subroutine generates the output for the IDEBUG(3) option. 
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Subroutine BCGRAD (F,I,DFD1,DFD2) 

Called by 

Calls 

Purpose 

BCDENS 

BCF 

BCPRES 

BCQ 

BCTEMP 

BCUVEL 

BCVDIR 

BCWEL 

BCWVEL 


Compute gradients with respect to £ and y \ . 


Input 

DXI, DETA 
F 

I 

ISWEEP 
II, 12 

+ N1.N2 

Output 

DFD1, DFD2 
Description 


Computational grid spacing A£ and A rj. 

A two-dimensional array, specified as F(IJ), containing the func- 
tion / whose gradient is to be computed. TTie subscripts I and J 
run from 1 to N x and N 2 , respectively. 

Current grid point index in the current sweep direction. 

Current ADI sweep number. 

Grid indices i and /, in the £ and y\ directions. 

Number of grid points N x and N 2f in the £ and r\ directions. 


First derivatives of /with respect to f and >/. 


Subroutine BCGRAD computes first derivatives of the function/ with respect to £ and y \ , at the current 
grid point in the ADI sweep direction. At interior points, the centered difference formula presented in 
Section 5.0 of Volume 1 is used. For derivatives with respect to 

(V\ fi+ij-fi- i.y 

V 9t ). ~ 

An analogous formula is used for rj derivatives. 

At boundary points three-point one-sided formulas are used. 

( ~aT ) ~ 2a \ ^ ~ -j + 

1 j 


- 2Aa ^v 1 -2J -4 /at,-ij+ 
AW 

Again, analogous formulas are used for rj derivatives. 
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Subroutine BCMET (I,FM0,FM1,FM2) 

Called by 

Calls 

Purpose 

BCDENS 

BCF 

BCPRES 

BCQ 

BCTEMP 

BCUVEL 

BCVDIR 

BCWEL 

BCWVEL 


Compute various metric functions for normal gradient boundary con- 
ditions. 


Input 

ETAX, ETAY 

I 

ISWEEP 
II, 12 
XIX, XIY 

Output 

FMO, FM1, FM2 


Metric coefficients rj x and r\ y (or yj r if axisymmetric.) 
Current grid point index in the current sweep direction. 
Current ADI sweep number. 

Grid indices / and j, in the £ and r\ directions. 

Metric coefficients f z and (or £ r if axisymmetric.) 


Various metric functions used for normal derivative boundary 
conditions. 


Description 

Subroutine BCMET computes metric functions used for normal gradient boundary conditions. For the 
first ADI sweep, 

FM0 = Vd + ^ 

FM1 = 0 

FM2 = i X Y] X + £yH y 

And for the second sweep, 

FM0 = Vfx+fJ 

FM1 = t x *l x + {yVy 
FM2 = 0 
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Subroutine BCPRES (IBC, FBC, IEQ, IMIN, IMAX, IBOUND 1 A,B,C,S,XVD,NPTSD) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute pressure boundary conditions. 


CP, cv 

DEL 

DPDRHO, DPDRU, DPDRV, 
DPDRW, DPDET 

DTDRHO, DTDRU, DTDRV, 
DTDRW, DTDET 

GC 

IBASE, ISTEP 
IBC, FBC 


IBOUND 

IEQ 

* IHSTAG 
IMIN, IMAX 
ISWEEP 

* ISWIRL 

IV 

JI 

4 NOUT 

NR, NRU, NRV, NRW, NET 


Specific heats c p and c v at time level n. 

Computational grid spacing in sweep direction. 

Derivatives dpjdp , dpjd(pu), dpjd(pv), dpjd(pw), and dpjdEj . 

Derivatives d Tjdp, dTjd(pu), dT/d^pv), dTjd(pw), and dTjdE T - 

Proportionality factor g c in Newton's second law. 

Base index and multiplication factor used in computing one* 
dimensional index for two-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I r J), where I runs from 
1 to N eq , corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Flag for constant stagnation enthalpy option. 

Minimum and maximum indices in the sweep direction. 

Current ADI sw r eep number. 

Flag for swirl in axisymmetric flow. 

Index in the "vectorized" direction, 4- 

Inverse Jacobian of the nonorthogonal grid transformation, J“ l . 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu, pv, 
pw, and E t . 

Leading two dimensions for the arrays A, B, C, and S. 

Static pressure p and temperature T at time level n . 

Reference pressure p r . 

Gas constant R. 

Static density p, and velocities w, v, and w, at time level n. 
Reference density p r and velocity 14. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 
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s 


Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 

Subroutine BCPRES computes coefficients and source terms for pressure boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 6.0 of 
Volume E The following sections apply these generalized equations to the particular pressure boundary 
conditions in Proteus. 9 

No Change From Initial Conditions , Ap — 0 


A 

Applying equation (6.3) of Volume 1, and noting that dgjdQ = JdgjdQ, we get simply 


K 


f - * + 4<; “> + -m ™ + ^ ^ + W 


I- 


The derivatives dpjdp, dpld(pu), etc., depend on the equation of state. They are defined for a perfect gas 
in Section 4.3 of Volume 1. 

Specified^ Static Pressure, p = f 

Applying equation (6.5) of Volume 1, 


J U 


dn dp A dp A dp A dp 

~t' ^ + « + sw 4(f>,) + W*. ) ^ w) + ae 


dp A £ r n + 1 


PrZc n 

2 P‘J 

P , -«r 


Specified^ Two- Point Pressure Gradient^ in Coordinate Direction, dpjd± —f 

Applying equation (6.8) of Volume 1 at the i = 0 boundary, and using two-point one-sided differencing, 


-J 


by 




— l/J 

dp A ft I 

^ r Ju 


+ 


'2J 


dp A dp A dp A dp w A dp A 

+ A(pu) + aw A(pv) + aw A(pw) + a^ A ^ 


-*2,/ 


, A t-N s-n + 1 Pt&c , _rt 
(A^)/ij 7 + P1J-P2,; 

Pr“r 


At the <? = 1 boundary, 


« In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript n, representing 
the final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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dp A dp a dp a dp a dp a 

~d^ Ap + d(pu) A(pM) + d(pv) A(pv) + <3(pw) A(/>H,) + 1E^ AEt 


+ 


J N l j 


dp A dp a dp a dp a dp a 

17 ^ + 1(77 4(pu) + afTT 4(pv) + 1(77 4<pB,) + IE; AE ; 

p r^j 




AW 


Analogous equations can easily be written for the rj boundaries. 


Specified Three-Point Pressure Gradient in Coordinate Direction , dpld<l> = / " 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 
ing, 


dp A dp a dp a dp a dp 

~ 37 i J \_~d^ Ap + A{pu) + a/IST A ^ v ) + A (f> w ) + — AE t 


d{pv) 


d(pw) 


dE-r 


F . dp , dp a dp a dp a dp a 


»[■ 

r ^ 

hJ l dp ‘ 


J i.y 

-in 


A , A v , dp 
d(pu) 3(pv) 


y 3 ,7 — A P + "a7777T A (^ w ) + -577X A (^ v ) + "577727 a (p v ) + "^TT A£ r 


dp 

d(pw) 


dp a 


2,7 

-I* 


j 3,7 


~>/a 1 Pr&c . -5 n a n , n 

2(A£>/l,y — 7 + 3pjj - 4R2J + ft J 


Pr“r 


At the f = 1 boundary, 


'at, 


A 


dp a dp a dp a dp a dp 

17 4p + 177 ^ + 1(77 ^ + 4(pw) + l£ 4t 


*i - 2,y 


47, 


dp A dp a dp a dp * dp a 

' 4 17 ap + M A(p " ) + «M aw+ a( ' > “’ ) + !£7 a£ r 


^ r dp ^ dp ^ dp a dp a dp 

3y *w [ 17 ^ + am + AM + ^ i|f») + 4£ r 

2(4a)/v,y i PNi-l.j + *PNi-\J~^PN i .j 

Pr u r 


J A 

I 

•I - 

-J v. / 


+ 


’AT, — i,y 

I* 


Analogous equations can easily be written for the */ boundaries. 


Specified Two- Point Pressure Gradient in Normal Direction , Vp-w = [ 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 
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-J 


hj\ 


—r— Ap + A (pu) + A(pv) + A(pw) + AE T 

dp d(pu) vr d(pv) d(pw) db T 


+ 


J- 


2 J 


dp a dz? A dp A dp A dp A 

ip + "aTTTX i<p“) + 4 (P') + ^ + n; 4£r 


- J i.y 

-i« 


_ dp 

Ag 

"hj 


d(pu) 


- , 2,y 


+ 1 Pr£c (^x+ Z/lyhj _ n 

/l J — J TEf~ V» J 


Pr“r 


, n n 

+ P\J- Pi J 


where 


m 


= V'^x 2 + ty 


and S n is the centered difference operator presented in Section 5.0 of Volume 1. At the £ — 1 boundary. 


-/ 




J, 


NiJ 


dp 

dp 


4^ ip + ^ i(pu) + ^ ifpv) + ^ A(p»> + EE r 


ip + i(P“) + i(P v > + aSa i'P”* + "5S7 i£ ' 


dp 


dp 


dp 


d(pu) 

dp 


dp 


d{pw) 

dp 


dEr 


dp 


dp 

As 


d( P u) 


d{pv) 


d(pw) 


dE T 


'I 

l - 

-1 M. i 


m N„j 


n + 1 Pric ^ x> bc + ^y)iV,,y 

2.V.,y 


Pr w r 


: + *y T ly)lV l J £ n J , 

W + - > -7 P^lJ 


Analogous equations can easily be written for the r; boundaries. 

Specified Three- Point Presst^e Gradient in Normal Direction, Vp.n=f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 


-3 J hj 


4 -^2 J 


^ i? + ^ A(pp) + -^ i(pv) + ifP-) + afe 4£ p 


dp 


dp 


dp 


dp 


dp ~ r ’ d(pu) 

d P .a , d P 
dp Ap + d{pu) 


A(p«) + 


A(pv) 


d(pw) vr ' dE-p 
dp A dp ^ 

d(^^ w) + W^ AET 


h.j 


dp K A , dp * 
-r— Ap + . . A(pw) + 

dp d(pw) 


d(pv) 
dp 

d(pv) 

3d a dz? A dp A 

A(pv) + — — r* A(pw) 4* 2 r Afj* 

d{pv) ^ ’ d(pw) ^ dE T 


+ 


J i J 

~.n 


J 2 J 
n 


3 J 


2 A q 

m Tj 


r n + l PrSc (Zx y lx+ t y n y )\,j £ 

f\ J ~J TEffj Vl J 


Pr u r 


+ 3 p”j-4p2j+pI 


where 

m = ^jU+ Yy 

and S n is the centered difference operator presented in Section 5.0 of Volume 1. At the £ = 1 boundary, 
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J *l - 2 J 


dp A A dp , a a 5n a dp * 

v i(> + 4(,>u) + A(pv) + w ^ + 4£ ^ 


n' 2 

- \r 


A'l - 2,7 


, r_^ 

,Vij L ^ 


dp A dp A dp A gn A 

^ 4 ' + aW 4 W + 1w 4w+ w ^ + a£ 


I - a dp A v <5/> A a 5z? A 

u »i J I IT 4 " + « 4( ' >u) + 4fcv) + JM 4( ' > “° + 4£r 


7 A 

r *] 

J A r i-l > 

■I - 

-J v i 


+ 


2A£ „ + i (jgbc + c n 

m ffi.j Y N ' J Pr u} m \J 

Analogous equations can easily be written for the rj boundaries. 
Linear Extrapolation of Static Pressure 

Applying equation (6. 14) of Volume 1 at the £ = 0 boundary, 


~ Pn\ - 2 J + 4PaTj - 1 J “ 3 pJv,, 


•^.y 


4 


<5p 


dp 


dp 


At the £ = 1 boundary, 

3p 


y 


2/ 


r i - 2,y r ■ 

r ^r. 

>-’>4 d p 1 


dp 

A (pu) + 

dp 

- A (pv) + 

dp 

- A(pw) + 

dp 

d( P u) 

d(pv) 

d(pw) 

dE r 

dp 

A (pu) + 

dp 

■ A (pv) + 

dp 

A 

■ A(pw) + 

dp 

dip u) 

d(pv) 

d(pw) 

dE r 

dp 

A (pu) + 

dp 

A(pv) + 

dp 

A(pw) + 

dp 

d(pu) 

d(pv) 

d(pw) 

dE T 

n 

-Ps.J 







d P 

A (pu) + 

dp 

A(pv) + 

dp 

A(pw) + 

dp 

d{pu) 

d(pv) 

d(pw) 

dE T 

dp 

A(pu) + 

dp 

A(pv) + 

dp 

A(pw) + 

dp 

d{pu) 

d(pv) 

d(pw) 

dE r 

dp 

A (pu) + ■ 

dp 

A(pv) + • 

dp 

A(pw) + - 

dp 

d{pu) 

d( P v) 

d(pw) 

dE T 


-i- 

J i j 

T 

J 2 J 
-i n 


j 3,7 


~ Pn { - 2 J + 2 Pn x — l,y ~ J 

Analogous equations can easily be written for the rj boundaries. 
No Change From Initial Conditions for Total Pressure L Apr= 0 
The total pressure is defined as 


-I 

J ^i-2,7 

£ I 

1,7 

-I - 

— ' v. i 


p T =p(i+ L Y^M 2 y 1 
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Applying equation (6.3) of Volume 1, we get 


where 




^ 4 , + ^ 4(A) + 4( ; v) + 4( ; w) + 


dp 


d{pu) 


d{pv) 


d{pw) 


dE 7 


d P 


dp T 

dp 1 

d(pu) 

d(pu) 

dp T 

- dP I 

d(pv) 

d(pv) 

dp r 

dp 

d(pw) 

d(pw) 

dp T 

dp / 


3E r dEj 


( 1 + 2zl^ + ,|( 1 + ir Iv»)‘ 


The Mach number is defined by 

AT = 


2 u 2 4- v 2 + w 2 _ (P^) + (P v ) + (P w ) 


yRT 


yRp 2 T 


The derivatives dM 2 \dp , etc., can then be derived as 

-<*+*£) 


dM_ 

dp 


dM 2 

_2u_ 

A/ 2 

dT 

d(pu) 

yp 

T 

d(pu) 

dM 2 

2v __ 

M 1 

dT 

d(pv) 

"" yp 

T 

d( P v) 

dM 2 

2w 

M 2 

dT 

d(pw) 

" yp 

T 

d{pw) 


dM_ 

DEt 


AT dT 
T dE T 


~i n 

A E t = 0 

\j 


d\f_ 

dp 

~ dM 1 

d{ P u) 

1 

-> dM 2 

d(pv) 

J 

’- 1 dM 2 

d(pw) 

T dA/ 2 

dE r 


80 4.0 Proteus Subprograms; BCPRES 


Proteus 2-D Programmer's Reference 



Specified Total Pressure , p T = f 


Applying equation (6.5) of Volume 1, we get 


J; 


i,J 


dPr a a , dPr 


dp T 


dp T 


dp r 


^ + l^TT A M A ^ v ) + ^7T + Je~ * e t 


dp r d( P u) 


d(pv) 


d(pw) 


‘J 


f n + 1 Pr8c n 

*ij 2 ~ PiJ 

P^r 




ij 


where p T} dpfdp , etc., are defined above as part of the description of the Apr = 0 boundary condition. 

Remarks 


1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. An error message is generated and execution is stopped if a non-existent pressure boundary condition 
is specified. 

3. The multiplying factor p r g c jp r if that appears with specified values of pressure and pressure gradients is 
necessary because input values of pressure are nondimensionalized by the reference pressure 
p r — p r R T r jgc , while internal to the Proteus code itself pressure is nondimensionalized by the normaliz- 
ing pressure p n = p r i$. (See Section 3.1.1 of Volume 2.) 
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Input 

DEL 

DXI, DETA 
IBASE, ISTEP 

IBC, FBC 


IBOUND 

IEQ 

IMIN, IMAX 
1SWEEP 

* ISWIRL 
IV 

II, 12 

JI 

NC, NXM, NYM, NZM, NEN 

* NOUT 
NVD, NPTSD 
NIP 

RHO, U, V, W, ET 


Computational grid spacing in sweep direction. 

Computational grid spacing A£ and A?j. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(U) and FBC(I,J), where I runs from 
1 to N, q , corresponding to the A'„ conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundanes. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Index in the "vectorized" direction, i,. 

Grid indices i and j, in the £ and >? directions. 

Inverse Jacobian of the nonorthogonal gnd transformation, J *. 

Array indices associated with the continui'y, x-momentum, 
y-momentum (or r-momentum if axisymmetric), swirl momen- 
tum, and energy equations. 

Unit number for standard output. 

Leading two dimensions for the arrays A, B, C, and S. 

Parameter specifying the dimension size in the £ direction. 

Static density p , velocities u, v, and w, and total energy E T at time 
level n. 



Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 


Subroutine BCQ computes coefficients and source terms for conservation variable boundary conditions. 
The linearized equations for the various general types of boundary conditions are developed in Section 6.0 
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of Volume 1. The following sections apply these generalized equations to the particular conservation vari- 
able boundary conditions in Proteus. 10 

No Change From Initial Conditions , AO = 0 


Applying equation (6.3) of Volume 1, and noting that dg/d Q = Jdgjd Q, we get simply 

JijNQ?j = 0 

where Q is the element of Q for which this boundary condition is to be applied. 

Specified Conservation Variable , 0 = f 
Applying equation (6.5) of Volume 1, 




n + \ 



Specified Two- Point Conservation Variable Gradient in Coordinate Direction , dQjd<b = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 

- J \j A C- + y 2 a4v = (a^,7 1 + Qij - Qij 

At the ^ = 1 boundary, 


-J 


*i - i,y A C;V, -ij + j n,j^Qn x j = ( A ^V5v,j ’ + Cat, - i j ~ 


Analogous equations can easily be written for the tj boundaries. 

Specified Three- Point Conservation Variable Gradient in Coordinate Direction, dQld<t> = [ 


Applying equation (6.8) of Volume 1 at the £ — 0 boundary, and using three-point one-sided differenc- 
ing, 


- 3y i J + V 2J A Qij - J 3 j A = 2(A^"/ 1 + 30”, - 4^, y - + ft" y 

At the £ = 1 boundary, 

y ' v . - 2J A &, -2 J - 4 7 - lj A&, - 1 J + 3 / aw Aft*,,; = 2(A^+ 1 - 0". _ 2> y + 40^ _ J >y - 3 Q\j 
Analogous equations can easily be written for the y\ boundaries. 

Specified Two-Point Conservation Variable Gradient in Normal Direction, VQ.n = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 


encing. 


10 In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript n y representing 
the final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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where 


-J\ j A2" ; + h j A2",; - 


Afi 

m \,j 


„ + 1 (Zx*lx + Zjrtyhj n 
J\,j - m, 1 d rfld\,j 


1 ,7 


+Qh-Ql 


m = sj'^x + iy 


and 6 is the centered difference operator presented in Section 5.0 of Volume 1. At the f - 1 boundary, 




’ J Ni ~ 1,7 A ^Ai - 1,7 + A ^V,7 m NlJ 


+ , + Z/lylpftJ 

JN x j ~ m fi x j 


6 Aj 


+ Q n „ l - U -Q» i , 


Analogous equations can easily be written for the rj boundaries. 

Specified Three- Point Conservation Variable Gradient in Normaj Direct ion, VQ-n =/ 

Applying equation (6.12a) of Volume 1 at the { = 0 boundary, and using three-point one-sided differ- 
encing. 


- 37, j A Qlj + 47 2J A&j - J 3J Aft", = 


2Afi 

m \j 


r n + 1 _ (ZxVx + tyfiyhj_ 

71,7 m- 


1,7 




+ 3(2"; -42",; + 23,, 


where 


m ■ 


■ = \j + £y 2 

and <5, is the centered difference operator presented in Section 5.0 of Volume 1. At the £ = 1 boundary, 

7 /Vj - 2,; Aftvj - 2,7 _ 47 Vj _ , j AQ Ni _ 1 j + 37 /Vj,; a 2at„7 = 

i wi + 1 

Aw 


2Afi 


rn + 1 (Zx’lx + £y’ly)y l ,7 

r " + 1 <5^,7 - 2 ^ _ 2,7 + 42 /V, - U - 3ftv„7 


"tyj 


Analogous equations can easily be written for the r\ boundaries. 

Linear Extrapolation ofi Conservation Variable 

Applying equation (6.14) of Volume 1 at the ^ = 0 boundary, 

J U A Qli- 2/jj A2J, J + 7 W A&, - - Ctj + 2Qlj - el, 

At the £ = 1 boundary, 

7^ _ 2 j A 2 y, _ 2 ,j ~ V Nx _ 1 j AQ\ _ u ~ A&„; = " fijv, - 2,7 + - 1,7 “ Q "iJ 

Analogous equations can easily be written for the y\ boundaries. 


Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. An error message is generated and execution is stopped if a non-existent conservation variable boundary 
condition is specified. 
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Subroutine BCSET 

Called by 

Calls 

Purpose 

MAIN 


Set various boundary' condition parameters and flags. 


Input 

* GBC1, GBC2 

* GBCT1, GBCT2 

* GTBC1, GTBC2 

+ IHSTAG 

* ISWIRL 
ITDBC 


* ITURB 

* JBC1, JBC2 

* JBCT1, JBCT2 
+ JTBC1, JTBC2 

* KBC1, KBC2 
NBC 

NEQ 

* NOUT 
+ NTBC 

* NTBCA 

* Nl, N2 

Output 

FBC1, FBC2 

FBCT1, FBCT2 
IBCELM 


Surface mean flow boundary condition values for the q and rj di- 
rections. 

Surface k-z boundary condition values for the £ and rj directions. 

Time-dependent surface mean flow boundary condition values for 
the £ and rj directions. 

Flag for constant stagnation enthalpy option. 

Flag for swirl in axisymmetric flow. 

Flag for time-dependent mean flow boundary conditions; 0 if all 
boundary conditions are steady, 1 if any general unsteady bound- 
ary conditions are used, 2 if only steady and time-periodic 
boundary conditions are used. 

Flag for turbulent flow option. 

Surface mean flow boundary condition types for the £ and rj di- 
rections. 

Surface k-z boundary condition types for the l and ^ directions. 

Flags for type of time dependency for mean flow boundary con- 
ditions in the £ and r\ directions. 

Boundary types for the £ and r\ directions. 

Dimensioning parameter specifying number of boundary condi- 
tions per equation. 

Number of coupled equations being solved, JV eq . 

Unit number for standard output. 

Number of values in tables for general unsteady boundary condi- 
tions. 

Time levels at which general unsteady boundary conditions are 
specified. 

Number of grid points Ni and vV 2 , in the f and rj directions. 


Point -by- point mean flow boundary condition values for the £ 
and yj directions. 

Point-by-point k-z boundary condition values for the £ and rj di- 
rections. 

Flags for elimination of off-diagonal coefficient submatrices re- 
sulting from three-point boundary conditions in the £ and r\ di- 
rections at either boundary; 0 if elimination is not necessary, 1 if 
it is. 


Proteus 2-D Programmer's Reference 


4.0 Proteus Subprograms: BCSET 85 




IBC1, IBC2 
IBCT1, IBCT2 
IBVUP 
JBC1, JBC2 
KBCPER 
NPT1, NPT2 


Point-by-point mean flow boundary condition types for the £ and 
t i directions. 

Point-by-point k-e boundary condition types for the £ and r\ di- 
rections. 

Flags for updating boundary values from first sweep after second 
sweep; 0 if updating is not necessary, 1 if it is. 

Surface mean flow boundary condition types for the £ and rj di- 
rections (only if using the KBC meta flags.) 

Flags for spatially periodic boundary conditions in the £ and rj 
directions; 0 for non-periodic, 1 for periodic. 

Ni and N 2 for non-periodic boundary conditions, A) + 1 and 
N 2 + 1 for spatially periodic boundary conditions in £ and rj. 


Description 

Subroutine BCSET sets various boundary condition parameters and flags. If boundary' types are spec- 
ified with the KBC meta flags, the appropriate surface boundary condition types are loaded mto the JBC 
arrays. Special flags are set if spatially periodic boundary conditions are being used. BCSET also sets iNP 1 1 
and NPT2, the number of grid points in each ADI sweep direction to be “mating coe^mts ^ 

source terms. For spatially periodic boundary conditions m the £ direction, NPT1 - Nl + 1. Similarly, for 
spatially periodic boundary conditions in the rj direction, NPT2 = N2+ 1. This is done in order to use 
central differences at the periodic boundary. (See Section 7.2.2 of Volume 1.) 

Next if the boundary types are being specified using the KBC meta flags, the appropriate JBC mean 
flow boundary condition parameters are defined. Then, if the mean flow boundary conditions are being 
specified using the JBC and GBC parameters (or the KBC meta flags), the appropriate po^'t-y-po 
boundary condition types and values (the 1BC and FBC parameters) are loaded with the JBC and GBC 

values. 

If three-point mean flow boundary conditions are being used at a boundary, a flag is set for eliminating 
the resulting off-diagonal coefficient submatrix. If gradient (two-point or three-point) or extrapolation mean 
flow boundary conditions are used during the first sweep, a flag is set for updating the £ boundary values 
after the second sweep. 

Next, for turbulent flow using the k-t model, if the k-e boundary conditions are being specified using 
the JBCT and GBCT parameters, the appropriate point -by-point boundary condition types and values (the 
IBCT and FBCT parameters) are loaded with the JBCT and GBCT values. 

And finally, the input boundary' condition parameters are then written to the standard output file. 


Remarks 

1. An error message is generated and execution is stopped if an invalid boundary type is specified with the 
KBC meta flags. 
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Subroutine BCTEMP (IBCTBCJEQJMINJMAX JBOUND,A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute temperature boundary conditions. 


CP, cv 
DEL 

DTDRHO, DTDRU, DTDRV, 
DTDRW, DTDET 

IBASE, ISTEP 
IBC, FBC 


IBOUND 

IEQ 

* IHSTAG 
IMIN, IMAX 
ISWEEP 

* ISWIRL 
IV 

JI 

* NOUT 

NR, NRU, NRV, NRW, NET 

NVD, NPTSD 
P, T 
RGAS 

RHO, U, V, W 
Output 

A, B, C 

S 

Description 


Specific heats c p and c v at time level n. 

Computational grid spacing in sweep direction. 

Derivatives dT/dp , dTjd(pu ), dTjd(pv), dTjd(pw), and dTjdE r . 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I4), where I runs from 
1 to N €q , corresponding to the N e q conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Flag for constant stagnation enthalpy option. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Index in the "Vectorized" direction, 

Inverse Jacobian of the nonorthogonal grid transformation, J~ K 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu , pv, 
pw, and E t . 

Leading two dimensions for the arrays A, B, C, and S. 

Static pressure p and temperature T at time level n. 

Gas constant R. 

Static density p, and velocities u , v, and w, at time level n. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Subroutine BCTEMP computes coefficients and source terms for temperature boundary conditions. 
The linearized equations for the various general types of boundary conditions are developed in Section 6.0 
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of Volume 1. The following sections apply these generalized equations to the particular temperature 
boundary conditions in Proteus , n 

No Change From Initial Conditions , AT = 0 


A 

Applying equation (6.3) of Volume 1, and noting that dg/dQ = Jdg/dQ, we get simply 


hi 


fr 4p + 3H 4< '”' ) + ^ v) + AA) 4(p “° + W 4£r 


-I- 

-*l.J 


The derivatives dTjdp, dTjd(pu), etc., depend on the equation of state. They are defined for a perfect gas 
in Section 4.3 of Volume 1. 


Specified Static Temperature , T — f 
Applying equation (6.5) of Volume 1, 


j. TiZl 

tJ L dp 


_ at a at a PT A dT £ 

Ap + T, — A(pu) + ~ ~ T A(pv) + =/ ~ A(pw) + A£ 


d(p u) 


d(pv) 


d(pw) 


dE T 


] n 

— f n + 1 _ T n 

-JiJ 1 iJ 
U 


Specified T wo- Point Temperature Gradient in Coordinate Direction, 8Tld4> = f 

Applying equation (6.8) of Volume 1 at the f = 0 boundary, and using two-point one-sided differencing, 


J. 


A 

A 


SL 4? + _aZL A( ;„ + JL- A ( ;v) + a(A) + M. a e t 

dp <Xpuj r ’ ao>») ’ ao>w) a£ r 


ly 4? + ^ + a^T ^ + + 4£r 


•t* 

1 - 


(AWT' + Aj-Tj 

At the £ = 1 boundary, 


u[ 


A? + AW + «;,) + ^ A(A) + M- A £ 

dp d(pw) 5(pv) <5(pw) 


d£ r 


, r dT a a 


AT A PT A /5T A dT £ 

+ — — ~ A(pu) + a/ _ A A(pv) + ^—7 A(pw) + A E r 


d(pu) ' d(pv) 7 d(pw) 

(A^V + ^-w-^.y 

Analogous equations can easily be written for the >; boundanes. 

Specified Three- Point Temperature Gradient in Coordinate Direction, dTjd4> = f 


J 

“■aTj - 1 J 

T - 

—I ; 


+ 


ing, 


Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 


11 In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript n, representing 
the final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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- w w[ 

4J 'si 

4 


v ■ ^ + 4 < ; "> + w ' i(A) ' + ** + ik‘ ^ I 1 + 


dT A dT A dT A /?T A dT * 

H Ap + 777 4M + «■ 4( ' ,v) + 777 4( ' > " ,) + 4£ r 


f 4i5 + a^T 4 « + 77 T 4 « + 777 ^ + M 

rn + 1 


r]\ 

-*W 

■r- 

J 2.y 


2 (A{F ,7 1 + 37 Tj - 47 J, + 7 ?J 


At the £ = 1 boundary, 


r _ 3 T 
r il 

"t-' Jl dp 


,, dT A dT A dT A dT A 
Ap + 777T A(p«) + S~z A(pv) + -=£- A(pw) + A£- 


d(pw) 


d(pv) 


d(pw) 


, x dT A dT a dT 

A P + ^7— T A(p«) + - 7—7 A(pv) + -^ 7 — 7 - A(pw) + 


d{ P u) 


d(pv) 


d(pw) 


dE r 

dT *r 

a 7 4£r 


^1 ~ 2 J 
n 


a dT A dT A dT A dT A 
Ap + 77 hr A(p«) + -~r A(pv) + a u>w) + A£ r 


d(pu) 


d(pv) 


d(pw) 


'] 

I 

T - 

-J V. 1 


+ 


2(A^, J - ^ _ 2J + 47”, _ , >y - 37^,- 


Analogous equations can easily be written for the tj boundaries. 

Specified Two-Point Temperature Gradient in Normal Direction, VT »n = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


-j r iz: 
’>4 ^p 

4y[- 


Ap + 7 7 7 a A (pu) + 777 — A(pv) + —Tr A (pw) + - 57 


d(p W ) 


d(pv) 


d(pw) 


dE-r 


dT a a , dT A , A , , dT A/ A , , dT a , a x . dT 
— Ap + — — - A(pw) + — — - A(pv) + — — - A(pw) + — — 
dp d{pu) d(pv) d(pw) dE T 


At 


r n + 1 (ZxVx + 

h j ~~ 


+ Zy r ty)\,j e ^ , ^y, 

+ *ij - h j 



where 


m =J~f r + T} 

and <5, is the centered difference operator presented in Section 5.0 of Volume 1 . At the £ = 1 boundary, 
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- u [f ■ ^ + iSf 4 < ;,) + ^ w) + ik 4 * r ] v , _ , 

J «> ■> [ ■ fr ip + ■& Mpu} + wa Hp,) + « ^ + -Ok 4 * r ] 


d P 

A£ 


"fv, 


i >j 


„n + 1 + ^V A W j rrn , r-n T n 

ACj VawJ + 7 Vw- 7 *iJ 


Analogous equations can easily be written for the v] boundaries. 

Specified Three- Point Temperature Gradient in formal Direction, VT- n =f 

Applying equation (6.12a) of Volume 1 at the { = 0 boundary', and using three-point one 


encing, 


- w u [ ■ f ^ + -£k> ^ + ^ 4 °’ v) + « + ^ 4ir ] , 


j [ - f ^ + -£k *** + ~£k Mp%) + ^ ^ w) + ik 4 ^ r l 
a .j [ -f ^ + -£k + -m &ipv) + 4( ' , "° * 4 ^] 


2 J 

n 

3 J 


2A£ 

m 


\ r n+ 1 ^xVx + ZyVyhj n 

— ]fuj Tn^j VU 


+ 3T n u -4Tlj+Tlj 


where 


m ■ 


! = V^X 2 + ^ 2 

and <5 is the centered difference operator presented in Section 5.0 of Volume 1. At the £ = 1 


47, 


T dr 

1-2,7 L ^ 

r 

r i-u|_ dp 

'*w[ 


A? + -^r AM + a^) 4 < ;v) + 4<;,v) + ik ' 4 ^_ 


d(p“) 


3(pw) 


AT,- 


AP + aA + ^ A(A) + ^ A(p A w) + ^ A£ r _ 


d(pu) 


d(pw) 


V - 


37v. , I ^ A^ + A(p A W ) + ^ A(p A v) + ^ A(pw) + M- A£ r _ 


dp r d(pu) 


d(pw) 


-v„y 


2A£ 




i -J 


- . j (fjc*?* + Z/ty)N x ,j „ „n , AT n — XT' 

fs*j ^ d n T i*iJj ~ T "i ~ V + 47 >i - '> 7 “ ' 


Analogous equations can easily be written for the rj boundaries. 


+ 

J 


-sided differ - 


boundary, 

2 J 

+ 

1 J 
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Linear^ Extrapolation of Static Temperature 

Applying equation (6. 14) of Volume 1 at the £ = 0 boundary, 


[ 

f dT 


a dT A dT A dT A dT a 
Ap + kkr A (pu) + Sh: A(pv) + A(pw) + A E r 


d{pu) 


d( P y) 


8{pw) 




/s.7 I J a7~ A P + “f.T.N A(pw) + — 7^7 A(pv) + -~ T — A(pw) + -4T A E 


d(pu) 

-Kj + 2T ij-Kj 

At the £ = 1 boundary, 


d(pv) 


d(pw) 


dE r 


I,- 
I 

-I- 


2J 


+ 1 m 4<l ’"» + a^T 4( ^> + ^ + -^T 4 4 

[ W‘ ^ + 3m ^ + aSr ^ + iw + ~$k i£r 


V, - 2 J 


n , [ + + Sa 4 * + + ar 

Analogous equations can easily be written for the rj boundaries. 

No Change From Initial_ Conditions [or Tota[ Temperature, A7> = Q 
The total temperature is defined as 


■J 
■J 

J A f 1 - 1 ,; 

- 

v. ; 


+ 


>=t( 1 +- I 2^-A/ 2 ) 


Applying equation (6.3) of Volume 1, we get 


4 


dT 


Ji >j ~1T A ? + mk A{ftU) + nkr A ^ v ) + ink A ^ w ) + kin ae t 


dT 7 


dT- 


dTr 


dTr 


dp 


d(pu) 


d(pv) 


d(pw) 


dE 7 


= 0 


‘.J 


where 
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dT 


8E r 

The Mach number is defined by 


v * 1 

dp 


dT t 

dT 

d(pu) 

d{pu) 

dT T 

- dT 1 

d{pv) 

d(pv) 1 

dT T 

dT 

5(pw) 

d{pw) 

dT r 

dT ( 


1 + 


-m 2 ^J 


V - 1 T dM 2 
2 dp 


, y - 1 

, ,f\ y - 1 

T dM 2 

1+ 2 

") + 2 

d(pu) 

y- 1 

„ 2 \ 1 ~ 1 

T dM 2 

1+ 2 

M )+ j 

d(pv) 

' y- 1 

w2 \ y - l 

T dM 2 

1+ 2 

-M U 2 

d(pw) 


8En 


1 + 


y - 


iw 1 ) 


[ y ~ 1 T dM 2 


dE-, 


2 2 2 

,.2 U + V + W 

M =■ 


y RT 

The derivatives dM 2 jdp, etc., can then be derived as 


(puf + (pv ) 2 + (p w ) 2 

yRp 2 T 


dM 2 

= -m 2 ( 

2 l dT 

dp 

P 

T dp 

DM 2 

2u 

M 2 

dT 

d(pu) 

y p 

T 

d(pu) 

dM 2 

2v 

M 2 

dT 

d(pv) ' 

yp 

T 

d(pv) 

dM 2 

_ 2w 

M 2 

dT 

d{pw) 

y/> 

T 

d(pw) 

dM 2 

M 2 

dT 

8E t 

T 

dE, 

r 


Specified Total Temperature, T t = f 

Applying equation (6.5) of \olume 1, we get 


Aj 


8Tt dT r a 9T t a 8T t a 5T r 

a a , ^ T A/ „. A j i_ 4 — Ainuri-! —A E 7 


dp 


+ ikh A(pu) + A( ' v) + ^ A(pw) + 




f n + ] — T n ( 

Jij 


;( 1+ JL ^-A^ 2 




where 7>, dTrjdp, etc., are defined above as part of the description of the A T r - 0 boundary condition. 


Remarks 

1 This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 
2. An error message is generated and execution is stopped if a non-existent temperature boundary condi- 
tion is specified. 
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Subroutine BCUVEL (IBC, FBC, IEQ, IMIN, IMAX, IBOUNDA,B,C,S,NVD, NPTSD) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute .x-velocity boundary conditions. 


Input 


DEL 

IBASE, ISTEP 
IBC, FBC 


IBOUND 

IEQ 

IMIN, IMAX 
ISWEEP 
IV 
JI 

* NOUT 
NR, NRU 
NVD, NPTSD 
RHO, U 

Output 

A, B, C 

S 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(U) and FBC(I,J), where I runs from 
1 to N eg , corresponding to the A», conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary' condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, 

Inverse Jacobian of the nonorthogonal grid transformation, /- l . 
Unit number for standard output. 

Array indices associated with the dependent variables p and pu. 
Leading two dimensions for the arrays A, P, C, and S. 

Static density p and velocity u at time level n. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 


Subroutine BCUVEL computes coefficients and source terms for .x-velocity boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 6.0 of 
Volume 1 . The following sections apply these generalized equations to the particular x-velocity boundary 
conditions in Proteus P 


12 In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript n , representing 
the final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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No Change From Initial Conditions , Au — 0 

Applying equation (6.3) of Volume 1, and noting that dgjd Q = Jdgjd Q, we get simply 

J u[- + 

Specified, x- Velocity u = f 

Applying equation (6.5) of Volume 1, 

y u [ - f 4? + 1 4(A)]" . = JG' - 1 - <, 

Specified Two- Point x-Veiocitv Gradienj in Coordin ate Direction, difid& =1 

Applying equation (6.8) of Volume 1 at the $ = 0 boundary, and using two-point one-sided differencing, 

- j \j\_~T a p + T . + Jl ’j [ “ T + ~p A{pu) \j = 


(A m n j X+ <J-<J 


At the £ = 1 boundary, 


- J«, - u [ ■ - T ^ + 7 + + T J - 


Wn+J 1 + - 1 J u N l J 


Analogous equations can easily be written for the rj boundaries. 

Specified Three-Point x- Velocity Gradienj in Coord inate Direction, dujd<f>_^J 

Applying equation (6.8) of Volume 1 at the ? = 0 boundary, and using three-point one-sided differenc- 


ing, 


- 3 J XJ [-yAp + y A(p«)^ _ + 4 J 2 j [ - “ A £ + p A ^] 2 . 

J 3 J [ -f A*p + ± A(pu)]” = 2(A 1 + Kj - < i + 

At the £ = 1 boundary, 

J«, - 2 j [ - f $ + f 4( '’“>] a , _ 2 j ~ ^ - u [ - f + T _ u 

V*, j [ - f 4? + j- 4(A)]" k _ - 2(4 (Vn,j ' ~ “1,-2. 

Analogous equations can easily be written for the p boundaries. 




; + All 


>1 - 1,7 3u *W 
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Specified Two- Point x-Velocity Gradient in Normal Direction , Vu • n=f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


- J u\-f*p + T a 0>»)T +J v\-f A P + f A(pVT = 

L - J i,y L J 2,/ 

(Zx’1x+ Zylyhj 




A7'- 


m 


l J 


r n 

V>J 


+ u \J- u lJ 


where 


m 


7 


and <5, is the centered difference operator presented in Section 5.0 of Volume 1 . At the £ = 1 boundary, 

\~ 7T + f a (p u )1 'ir^P + 4” a (p w )1 = 

L J Ar,-U L J NiJ 

r n + 1 + ^y r ly)N 1 ,j 


Ai_ 

! v,.y 


m 


rn t l 

J 




c n 


, n n 

+ u N x -\ J~ u N h j 


Analogous equations can easily be written for the yj boundaries. 

Specified Three- Point x- Velocity Gradient in Normal Direction , Vu*n = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 


-W w [ 

h.,[ 



+ r - 1 + 7 - a <U)T - 

L J 2,y 

_ 2A£ f -n + 1 (ixVx + ZyVyhj n 

m \j I -' 1 -J m \,j d v u ' [ J 


+ 


o n A n . n 
3 u \,j ~ 4u 2 J + U 3 J 


where 

If 

and <5, is the centered difference operator presented in Section 5.0 of Volume 1. At the £ = 1 boundary, 


\ -2,j\-f*P+T A (A)T - 4 J N + j r A(pu)T + 

J ^i-2 J L J .Vj — l,y 

- [ - f ^ + t aw]” ^ . = -If- [/;,j 1 

yi - j* /? t ^ 

%l - 2,y + 4 %! - 1,7 “ 3 % 1 ,7 

Analogous equations can easily be written for the rj boundaries. 


(j-tfx + ZylyfNjJ „ 
m N lt / V^V„ 7 
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Linear Extrapolation of x- Velocity 

Applying equation (6.14) of Volume 1 at the f = 0 boundary, 



At the £ = 1 boundary, 



Analogous equations can easily be written for the rj boundaries. 

Remarks 

This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. An error message is generated and execution is stopped if a non-existent ^-velocity boundary condition 
is specified. 
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Subroutine BCVDIR (IBC,FBC,IEQ,IMIN,IMAX, IBOUND, A, B,C,S,\1ETX,METY,NVD,NPTSD) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute normal and tangential velocity boundary conditions. 


Input 


DEL 

Computational grid spacing in sweep direction. 

DXI, DETA 

Computational grid spacing A£ and A rj. 

IBASE, ISTEP 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

IBC, FBC 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I r J), where I runs from 
1 to N eq , corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

IBOUND 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

IEQ 

Boundary condition equation number. 

IMIN, IMAX 

Minimum and maximum indices in the sweep direction. 

ISWEEP 

Current ADI sweep number. 

* ISWIRL 

Flag for swirl in axisymmetric flow. 

IV 

Index in the "Vectorized" direction, V 

11, 12 

Grid indices i and y, in the f and rj directions. 

JI 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 

METX, METY 

Derivatives of sweep direction computational coordinate with re- 
spect to x and y (or r if axisymmetric.) 

♦ NOUT 

Unit number for standard output. 

NR, NRU, NRV, NRW 

Array indices associated with the dependent variables p, pu , pv, 
and pw. 

NVD, NPTSD 

Leading two dimensions for the arrays A, B, C, S, METX, and 
METY. 

NIP 

Parameter specifying the dimension size in the { direction. 

RHO, U, V, W 

Static density p, and velocities u, v, and w, at time level n. 

Output 

A, B, C 

Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

S 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 

Subroutine BCVDIR computes coefficients and source terms for normal and tangential velocity - 
boundary conditions. The linearized equations for the various general types of boundary conditions are 
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developed in Section 6.0 of Volume 1. The following sections apply these generalized equations to the 
particular normal and tangential velocity boundary conditions in ProteusP 

Specified^ Normal Velocity, Vn = f 

The normal velocity is defined as 


V n =V.n 


where n is the unit vector normal to the boundary. For a C boundary, 


- _ i -r , 1 , 7 


|V?| 


where 


Therefore, for a £ boundary, 

v H —k{i** + z y y)=f 

Note that the unit vector n is in the direction of increasing l- Therefore V n is positive in the direction of 
increasing f . Thus, a positive V„ at e = 0 implies flow into the computational domain, and a positive V„ 
at l = 1 implies flow out of the computational domain. 

Similarly, for an r\ boundary, 


V n = W bx u + V) 


where 


/ 2 2 

and V n is positive in the direction of increasing >j. 

Applying equation (6.5) of Volume 1, the linearized boundary condition at a £ boundary becomes 


{u _ 

m U _ 


£ y v 


P 




a p + ^-^(p u ) + ~ir A (H = 4”; 

/ I 


+ 1 


Wn)lj 




An analogous equation can easily be written for the rj boundaries. 


1 1 * 3 In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 

presenting the intermediate solution, and for the second ADI sweep they should have the superscript n, representing 

the final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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Specified Two- Point Normaf Velocity GradierU in Coordinate Direction , dVJd<j> = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 


u[~ 


Z x u + v 


J 2 : 

~m2 


a a ty a "I 

A P + — A (P U ) + -y A(pv) + 

J i J 
- 1* 


^+Cy v A , S x .a 
p A P + — A (p“) + 


1 + (Vn)l,j ~ (Vn)2,j 


At the £ = 1 boundary 7 , 


J_N 

m 


Ni-w r 
'v- w L 


's r W ■+■ <* V 


y 


.A i X A A Y 

Ap + — A(p«) + -y A (pv) 

^ a f 
-7T A(pv) 


Wf ,A , Sx . r A £ 

L p — Ap + — A (p“) + 


m N v . 

(A^ l Y+(^x i - IJ -(^, y 

Analogous equations can easily be written for the tj boundaries. 

Specified Three-Point Normal Velocity GradierU in Coordinate Direction, dVJdd> = f 


tng, 


Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 


— 3 


y, 


m 


.J r «JC«+^V { A Zy A X 

— p Ap + — A(p«) + — A(pv)' + 

L -J l , 


y- 


h 

p 


r 2 j r t x u + z y v { « a i 

Y7 1_ p A P + -jr a (p“) + -y A (p»0 | - 


y 3,y r 

m 3,j L 


A £r A L 

p A P + — A (P“) + -y A(pv) 


2 ,y 


l- 


2(A^,Y ' + 3(KY, y - 4(*X-+ (VY.y 


At the £ = 1 boundar> r , 


J N l -2J 

f £x u %y v 

m »\-2 J 

L p 

^A’l-l.y 

r z x u + t y v 

m N t -l J 

L ' 

3 y 

Zxu+tyv 

m :%j 

P 


A *sr A £y A ”| 

A P + — A(pu) + A(pv) 


'V, - 2J 


. A £x A A 

A P + — A(pw) 4- — A(pv) 


A 'p + -y a (p u ) + A(pv) 


■I 

-’A'i-IJ 

■J ■ 

— » V. .■ 
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Analogous equations can easily be written for the rj boundanes. 

Specified Two- Point Normal Velocili Gradienj in Nprrnaf Direc tion , VF n . n =/ 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 


encing, 


r 

m \j L 
'£[- 


Sy a.T 


a.j r 1 4 p + A- w + am | + 

J w 


_a£ 

m 


&+& .4, ^ 

(£Vbc + 


tv 




[ A”/ 1 - + < K ->W -< K »)L- 

n,y |_ ,J w j 

where <5 is the centered difference operator presented in Section 5.0 of Volume 1. At the f = 1 boundary, 




+ 


^7 [>« 1 + r&. - w - 

Analogous equations can easily be written for the y] boundaries. 

Specified Three- Point Normaj Velocity Gradienj in Normaj D irection, VK„.w =f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 


encing, 


J \,j 

t X U + tyV 

m \,j 

P 

JlJ 

r t X U + ZyV 

™2J 

L" ' 

J 3,y 

r t x u + t,v 

J 

L" ' 


£ A ?v A 

Ap + -^A(pw) + -^A(pv) ■ 

J t.y 


4 Ir A iy a -| 

Ap + -y- A(p«) + — A(pv) 

J 3 ,y 

M. r /,»; ' - + 3 (Kjij - «yS2.i + (n,)?.y 

where <5 is the centered difference operator presented in Section 5.0 of Volume 1. At the £ = 1 boundary, 
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J Vi-2J 

- Z x u+Z y v 

m N l - 2,j 

p 

■ / -'V I - l,y 

t* U + 


P 

, J A\J 

Zx u + 

m A\J 

P 


A P + -j- A (pu) + -j- A (pv) 


Ap + A(/Tu) 4- A(pv) 


A ^ r ^ ^ 

Ap + ^A(p W ) + -f A(pv) 


T 

J iVj -2,y 

I 

“■jVj - 1 J 

T - 

-I \r. i 


2A£ 


"*AW 


+ 1 


(trfx + £/?y).v„y 


<M F X W - (K)\ - 2 j + W A-, - u - 3 {V n )\j 


Analogous equations can easily be written for the rj boundaries. 
Linear Extrapolation of Normal Velocity 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary, 


Kj 

- £ X U + £ y V 

m l,j 

P 

2 h -‘ 

~ S X U + l y V 

”h j 

P 

h,j 

Zx u + Zy v 

m 3,y 

P 


-(VJlj+W 

1 boundary’, 


J N y - 2J 

F £yV 

m N x - 2 ,j 

P 

, J N l -\ J 

~ Z x u + <^V 

m N i - \,j 

P 

J N„j 

~ t x U + £yV 

m N u J 

P 


Ap + -~r A(p«) + 


5y a -l” 
— Ai (pv) 

J UJ 


A ^ r A ^ y A 

Ap -h — A(pw) 4- A(pv) 


Ap + ^A(pu) + 


2,y 

>1 


Cy A “I 
A(pv) = 

J 3.y 


JV, - 2,y 


a ^jc A A ”1 

Ap+^A(p*)4--^A(pv) 

a A ‘sy A 1 

Ap + — A(pw) 4- — A(pv) 

- l,y 

A ^ A ^ A Y 

Ap + A(pw) 4- A(pv) 

J AW 


- - aj + - i j - (*X lf y 

Analogous equations can easily be written for the y \ boundaries. 

Specified Tangential Velocity , K r — / ~ 

For a (J boundary, the tangential velocity is the velocity in the r\ direction, and is given by 


V* 


\=V- = 4JW-vl 


= -k(-Zy“+Zx v ) 
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where 


m = 'JzJ + v* 

Note that this definition for tangential velocity does not include the swirl velocity w in axisymmetric flow. 
Separate boundary conditions should be set for w. 

Similarly, for an rj boundary . 


v t = ^ = 4 r^ u ~^ 


where 


m 




2 , 2 
*lx + 


Applying equation (6.5) of Volume 1, the linearized boundary condition at a f boundary becomes 


r 

m u 


Zy U - 


A p--f- A (p“) + -y- a (p v ) 


“I 

A \ f n + 1 

JV > =h 


-Wlj 


An analogous equation can easily be written for the y\ boundaries. 

\ 

Specified Two- Point Tangential Velocity GradierU in Coordinate Direction, dV,jd4> = f 

Applying equation (6.8) of Volume 1 at the { = 0 boundary, and using two-point one-sided differencing, 


j r £ x ^ a ^ y ^ ^ . n 

Ap- — A(pu) + — A(pv)J^ + 

k ,j P %y u ~ < =>* v . a A , A , , €x A 

— ? Ap - — A(pu) + — A(pv) = 

(Awy'+wh-wh 


At the £ = 1 boundary, 


VU 
"ty-W L 

'n w_r 
**W L 




Js 

m .v,, 


p Ap A(pu)+ — A(pv) 

{ 


J 

-V,- lj 


+ 


Ap - — A(pu) + 


A(p A v) J 






Analogous equations can easily be written for the rj boundaries. 

Specified Three- Point Tangential Velocity Gradient in Coordinate Direction, dVJdtf =/ 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 
ing, 
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-3 


Yy 

H 

1 

>s 

*K/* 

1 

m u 

L p 

Yy 

- (yU ~ 

m 2 J 

P 

Yy 

~ {yU - 

m 3 ,j 

P 


a *y - 
Ap-^A (pa) + 


i x a -i 

-^A(pv) 

J W 


+ 


A^--^A(A) + ^A( P v) 


a A £r A 

Ap-^-A(pu)+-fA(pv) 


1- 


2(A0/,7 1 + 3 (V-fij - 4(Vf 2J + (Vf 3J 


At the £ = 1 boundary, 


Y, - 2,y 

V - 


p 

Y, - i,y 

- - fjfV 

m N x -\J 

P 

3 Y„y 

“ - £ x v 

m At„y 

P 


*i - 2 J 
n 


£ v a f a n 

A P - — a (p w ) + — A(pv) 

J A, 

A £v A A Y 

A P - — a (p w ) + — A (P V ) 

-Jjv, - 1, 

A L A £ r A Y 

A P - -7“ + "P" 

—1 , V. f 


+ 


2( A Yv[,y ’ - Wat, - 2.; + 4 (F,)^ _ u - 3(K,)7, 

Analogous equations can easily be written for the rj boundaries. 

Specified Two- Point Tangential Velocity Gradient in Normal Direction , VV r »n ~ f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two -point one-sided differ- 
encing, 


J \ J r ^ w "^ v a a *y .A Z x 

—p — A P - -p- A (p“) + — a (p v ) 


Yy [~ 

m U L 

7 


h.) r 


£_y A £ x 

■Ap--7 A(pw)+ _JL A0)v) 


]Y 

J 1J 

r- 


2,7 


_A£ 


1 * rn 4 - 1 4 " £]ply)l,j . r\f\ n | /t/\ w ll'\ n 

— hj m^-j V K /)i,y +( v 'hj-( v hj 


where <5, is the centered difference operator presented in Section 5.0 of Volume 1. At the £ = 1 boundary, 

£y u — ix v a 


j n x -\j r 

m N\~\j L 

\j r 

m if»j L 


p 

ZyU-tx v 


A Cy A A ~~ I I 

A P - — A (pw) + — A (pv) 

-Y,-i,y 


A P~ — a (p w )+ P 


{ x A “I 

-^A(pv) = 

J ' v i.y 


A « 


m AW 


„ + l (*#*+ tj*yKj 
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Analogous equations can easily be written for the r] boundaries. 

Specified Three- Point Tangential Velocity Gradient in Normal Direction , VK r . n = f 

Applying equation (6.12a) of Volume 1 at the q = 0 boundary, and using three-point one-sided differ- 
encing, 


-3 


J hj 

~ Zytl ~ Q X V 

m \J 

p 

J 2J 

r SyP-te 

m 2J 

L ' 

h.J 


m 3,j 

L ' 


Ap--A(pu) + 


^rA(pv)l + 

J w 

A £ V A £ Y ^ i 

Ap - -j- A (pu) + — A(pv) 

J 2 J 

a A A _ I 

Ap — jj- A(pw) + — A(pv) 

-*i ; 


_2A£ 

w 


^ [",»+! 

wL /!j 


+ Z/ly)\J 


m 


W 


«,( + 3 (^r)” j ~ 4( + ( ^)3,; 


where <5, is the centered difference operator presented in Section 5.0 of Volume 1. At the ; = 1 boundary, 


- 2,7 

- i y u - i x v 

- 2,7 

p 

At, - 1,7 

~ ty u ~ Zx v 

"fy-1,7 

P 

.. j n x j 

- £ y u - Z x v 

m N x J 

P 


a ty a 
A p — j- A (pu) + 


Ap - — A(pu) + 


~f~ A(pv) J 
A(p v ) _ | 


/v,- 2 .y 

n 


_ A ^ A ”1 ‘ 

Ap - — A(pw) + — A(pv) 

J *i.7 

W*w] - (^.-2.; + Wy, - . j - WSr., 


2A£ 




/*/? + 1 


Analogous equations can easily be written for the r\ boundaries. 


Linear Extrapolation of Tangential Velocity 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary, 


hi 

ZyU ~ Zx v 

m \j 

P 

hi 1 

r v - 

m 2J 

L ' 


r 

m 3J 

L 


Ap - — A(pu) + 


-T-'HoVI - 

J 1 J 

a *5 y A A n 

Ap — jj- A(pu) + — A(pv) J 


2,y 


-(^)L + 2 (^2,7-(^)3,y 


At the £ = 1 boundary, 
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1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3 . 

2. An error message is generated and execution is stopped if a non-existent normal or tangential velocity 
boundary condition is specified. 
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Subroutine BCWEL (IBC.FBC, IEQ, IMIN, IMAX, IBOUND, A,B,C,S,NVD, NPTSD) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute y or r-velocity boundary conditions. 


Input 

DEL 

IBASE, ISTEP 
IBC, FBC 


IBOUND 

IEQ 

IMIN, IMAX 
ISWEEP 
IV 
JI 

* NOUT 

NR, NRU, NRV 

NVD, NPTSD 
RHO, U, V 

Output 

A, B, C 

S 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as 1BC(I,J) and FBC(I,J), where I runs from 
1 to N ev corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, i v . 

Inverse Jacobian of the nonorthogonal grid transformation, J ~ l . 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu, and 

pv. 

Leading two dimensions for the arrays A, B, C, and S. 

Static density p, and velocities u and v, at time level n. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 


Subroutine BCWEL computes coefficients and source terms for y or r-velocity boundary conditions. 
The linearized equations for the various general types of boundary conditions are developed in Section 6.0 
of Volume 1. The following sections apply these generalized equations to the particular y or r-velocity 
boundary conditions in Proteus . l4 


14 In the following description, for the first ADI sweep the dependent variables should have the superscript *, re- 
presenting the intermediate solution, and for the second ADI sweep they should have the superscript /i, representing 
the final solution. For simplicity, however, only the superscript n is used. The superscripts on all other variables 
are correct as written. 
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No Change From Initial Conditions, Av — 0 


Applying equation (6.3) of Volume 1, and noting that dg/dQ = Jdgjd Q, we get simply 

J ij [ - -J- + ~jr A(pv)l = o 

L J ij 

Specified y or r- Velocity , v = f 

Applying equation (6.5) of Volume 1, 


J u [-jr^ + T ^ ]" -47' 




Specified Two-Point y or r- Velocity Gradient in Coordinate Direction , dvjdcfr = f 

Applying equation (6.8) of Volume 1 at the f = 0 boundary, and using two-point one-sided differencing, 

-y w[“7" A ^ + T A(pV) ] 1 + - / 2,y[-7-Ap+-^-A(pv)J^ = 

(A W?S' + $j-yZ,j 

At the £ = 1 boundary, 



Analogous equations can easily be written for the t] boundaries. 

Specified Three-Point y or r-Velocity Gradient in Coordinate Direction , dvld<j> — f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 


- 3 J j_^ p+ ± A{ ; v) T + 4 j 2 j r_x A - + ± A( ; v) T _ 

L J by L J 2 j 

h,j \-f A P + f ^)T = 2(A Wu 1 + Kj - Kj + v h 

l— -A ■> ; 


At the £ = 1 boundary, 

J 


\ -2j\-f*P + jr A(pv)]” - 4 J Ni _ XJ \ -j- At +± A (pv)T + 

L -^- 2,7 L J *v 1 -i,y 

Mv, j [-fa e + jr Vv)]" - ’ - 4, -2 ,j + K, - 3vJ w 

-J JV. 1* 


*AW 

Analogous equations can easily be written for the boundaries. 
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Specified Two- Point y or r- Velocity Gradient in Normal D irection, Vv . n -/ 

Applying equation (6.12a) .of Volume 1 at the { = 0 boundary, and using two-point one-sided differ- 
encing, 


- J u [ - T Ap + T A(pAy) ] I , + J2 ’j [ ' ■ T Ap + T A(pv) ] 2 , = 


m \J 


ffl +1 

Kj 


(Zx>1x + 




where 


m ■ 


V T} + Zy 


and <3, is the centered difference operator presented in Section 5.0 of Volume 1. At the £ 1 boundary, 

- ■ V - w [ - f Ap + T A(pv) ] yV) _ t ; + Jn '- j [ " f Ap + T A(pv) ] NiJ = 


A£ 

m N\,j 


f n + 1 _ { * X>U + f, v" 

Jff iJ m NiJ 




+ V A',-1 J~ V N l ,j 


Analogous equations can easily be written for the rj boundaries. 

Specified Three 1 Poira v or r- Velocity Gradient in Norniaf Dir ection, Vv-n =f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ 
encing, 



where 


m = Jlx* + £y 

and <5, is the centered difference operator presented in Section 5.0 of Volume 1. At the f = 1 boundary, 

- XJ [ - 7 * + 7 4 *]”. _ 2 y - u [ -F ^ + T + 

-|" 2M. \ r n + \ ^xVx + 


3 ^w[-t a?+ t 4 *], Vi 

V.v 1 _2J + 4v ^ i -1J _3v .V 1 J 

Analogous equations can easily be written for the rj boundanes. 


m -%j 


*? V„y 
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Linear Extrapolation of y or r- Velocity 

Applying equation ( 6 . 14 ) of Volume 1 at the f = 0 boundary, 



At the £ = 1 boundary, 



Analogous equations can easily be written for the >7 boundaries. 
Specified Flow Angle , tan~ x {v!u) = f 

This boundary condition can be rewritten as 


TT-tan/ 

where /is the specified flow angle. Multiplying by pu , 

( tan f)pu — pv = 0 

Applying equation ( 6 . 5 ) of Volume 1 to the above equation, we get 

J iJ [( 1 - A (pv)l] = - ( tan f)*j + (pv)lj 

Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2 . An error message is generated and execution is stopped if a non-existent ^-velocity boundaiy condition 
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Subroutine BCWVEL (IBC, FBC, IEQ, IMIN, IMAX, IBOUND, A, B,C,S,NVD, NPTSD) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute swirl velocity boundary conditions. 

Input 

DEL 

1 

Computational grid spacing in sweep direction. 


IBASE, ISTEP 
IBC, FBC 

IBOUND 

IEQ 

IMIN, IMAX 
ISWEEP 
IV 
JI 

* NOUT 

NR, NRU, NRW 

NVD, NPTSD 
RHO, U, W 

Output 

A, B, C 


r>ase liiucA miu. * — — * ~ 

dimensional index for two-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to N eq , corresponding to the N eq conditions needed, and J 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the “vectorized” direction, K- 

Inverse Jacobian of the nonorthogonal grid transformation, J 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu, and 

pw. 

Leading two dimensions for the arrays A, B, C, and S. 

Static density p, and velocities u and w, at time level n. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

s Source term subvector S at boundary IBOUND (element IEQ 

only). 

Description 

Subroutine BCWVEL computes coefficients and source terms for swirl velocity boundary conditions^ 
He tSeqitas for .he'various general typer of boundary conditions arc : devek*£ 
of Volume 1. The following sections apply these generalized equations to the particular suirl veto y 

boundary conditions in Proteus. 15 


me following description, for ^ 

Trie superccr/u on all om„ variables 

are correct as written. 
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No Change From Initial Conditions , Aw ~ 0 


A 

Applying equation (6.3) of Volume 1, and noting that dgjdQ = JdgjdQ , we get simply 

Jij\-f*P + jr*(p”) T = ° 

^ -*z / 


Specified Swirl Velocity , w = f 

Applying equation (6.5) of Volume 1, 


J u \ =f* 

L 


+ 1 n 

~ W U 


Specified Two- Point Swirl Velocity Gradient in Coordinate Direction , dwld<f> = 


Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 

-Jj--^AZ + ±A( PW) ] +J 2J \ -f At +j r A(pw)] = 

L J lj L J 2 J 


( A ?l/ij + w l,y — w 2,j 


At the £ = 1 boundary, 


--jrAp +^-A(pw)l +7^ y T-^-Ap + -^-A(pw)l 


( Aty*y + w n Ni _ hJ - w " NiJ 

Analogous equations can easily be written for the tj boundaries. 

Specified Three-Point Swirl Velocity Gradient in Coordinate Direction , dwjd4> = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 
ing, 

- 37, j\-fAr+i A(pw)T + 4 J 2J \~fAp+f A(pw)T - 

L “*1 J L J 2,y 

h,j [ - -y A P + 7 - A(pw)J^ = 2{A£)f\,1 1 + 3w”y - 4 wlj + w”j 

At the £ = 1 boundary, 

\ -2j\-f*P + T Mp*)T - 4 y .v, -u\-f A P + f + 

3y A-..y [ " ^ A P + f = 2 ( A ^J 1 - w V, - 2 J + 4h&, _ 1>y - 3w£ iiy . 

L J AW 

Analogous equations can easily be written for the rj boundaries. 
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Specified Two- Point Swirl Velocity Gradient in formal Direction, Vw » n = f 

Applying equation (6.12a) of Volume 1 at the q — 0 boundary, and using two-point one-sided differ- 
encing, 


“ y u [ “ T a p + fr a (p h ')] i + J 2j [ - -y A /> + 7- a (p w )] 2 _ = 


A; 


\n + 1 (jgf + 
■'1J ATI- 


^y^y)\,j n , n n 

— Vu +w u- w 2j 


where 


m = + Zy 

and 3^ is the centered difference operator presented in Section 5.0 of Volume 1. At the £ = 1 boundary, 
- ./ v, - 1 ,y [ - -)r A ? + 7 - a (p w )] + J N i j [ - -y a p + t A(pw) ] , = 




m N\<j 


' +1 _^ + 


Zy*ly)NiJ £ n 1 , n n 

+ w * 1 -i.y- J 

A w 


Analogous equations can easily be written for the »/ boundaries. 

Specified Three- Point Swir[ Velocity Gradient in Normal Direction, Vw.n = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 

“ 3y i J [ “ T + T A ^] i + 47 2,y [ - A P + T A(pw)J^ ' - 


J 


T w ,a 1 , * T 2 Ag [ n + x «*»!*+ Wu n 

;,y \_~~p~ Ap + ~p~ A ^ w ) “ ~Fnfi~ A,j m hJ 6 <i w \,j 


+ 


Ky- 4 <v + <y 


where 


™ = V ^ 2 + 

and <5, is the centered difference operator presented in Section 5.0 of Volume 1. At the £ = 1 boundary, 

h\ - 2 ,y [ - 7 - A P + T a (p w )] - 4 y , V, - 1 j [ - T A P + T A{p ' w) ] + 

1 L j a , 1 — 2,y L - l iVi-i>y 


1 / r w A , 1 _ m 

3y ". j L ” + T - m .v,j 


y-n + 1 n 

JN x ,j m S\,j °V W M l J 


H '.\\ - 2,y + 4vv "', - 1 ,y 3w 


n 

aw 


Analogous equations can easily be written for the r\ boundaries. 
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Unear Extrapolation of Swir[ Velocity 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary. 



At the c = 1 boundary, 



Analogous equations can easily be written for the rj boundaries. 
Specified Flow Angle, tan~ '(wlu) - f 

This boundary condition can be rewritten as 


w . r 
~U = tan / 

where /is the specified flow angle. Multiplying by pu, 

( tan f)pu — pw = 0 

Applying equation (6.5) of Volume 1 to the above equation, we get 

J ij [( tan /)"/ 'A (pu)"j - A(pw)"j\ = - ( tan/)”y + (pw)"j 

Remarks 


1* su broutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. An error message is generated and execution is stopped if a non-existent swirl velocity boundary con- 
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Subroutine BLIN1 


Called by 

Calls 

Purpose 

TURBBL 

ISRCHEQ 

Compute inner laver turbulent viscosity along constant q lines. 


Van Driest damping constant A + . 

Constant B in the Spalding- Kleinstein inner layer model. 

Exponent n in the Launder-Priddin modified mixing length for- 
mula for the inner region of the Baldwin-Lomax turbulence 
model. 

Von K arm an mixing length constant used in the inner region of 
the Baldwin-Lomax and Spalding- Kleinstein models. 


Input 

* APLUS 

* CB 

* CNL 


CVK 


* IDEBUG 

* ILDAMP 

* INNER 

* IPRT1A, IPRT2A 
IT 

* IWALL2 
II 

* LWALL2 
MU 
MUT 

* NOUT 
NPRT1, NPRT2 

* N2 

* RER 

RHO, U, V, W 
VORT 
X, Y 


Debug flags. 

Flag for Launder-Priddin modified mixing length formula in the 
Baldwin-Lomax inner region model. 

Flag for type of inner region model. 

Indices for printout in the £ and r? directions. 

Current time step number n. 

Flags indicating whether or not the r/ boundaries are walls. 

Grid index i in the £ direction. 

Flags specifying wall locations for rj boundaries. 

Laminar coefficient of viscosity Mi- 

Outer layer turbulent viscosity coefficient (p t )«,« along constant f 
lines. 

Unit number for standard output. 

Total number of indices for printout in the £ and rj directions. 
Number of grid points N 2 in the >7 direction. 

Reference Reynolds number Re r . 

Static density p, and velocities u, v, and w. 

Total vorticity magnitude. 

Cartesian coordinates x and y, or cylindrical coordinates x and r. 


Output 

MUT 


Turbulent viscosity coefficient p, along constant l lines. 


Description 

Subroutine BUM computer the inner 

S ' BMm S UmaMWS), an“the model of Spalding (1961) and Klehretein (1967). These are descnbed 
in Section 9.1.2 of Volume 1. 
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If both y] boundaries are solid walls, (/irW is computed separately for each wall, and it is assumed that 
the two inner regions do not overlap. For each wall, the computation is done inside a loop starting at the 
wall and moving outward. Once the inner region value exceeds the outer region value, the loop is exited. 

Thus fit = (m<W until (/*,) inner — (Mr) outer i then pit = (mO outer • 

The distribution of pi, across the intersection of the inner and outer regions is smoothed using the fol- 
lowing formulas. For the >7 = 0 wall, 

0*4 = ■4' [(Mr)/ 4 _ 1 + 2 (M/) 7a + {f x i)j b + J 
(t*4 - 1 = \ [(^4 - 2 + 2 (Mr)y 4 - 1 + 0*4,] 

where the boundary between the inner and outer regions falls between between j = jt - 1 and j=j b . It 
should be noted that the unsmoothed value of (pt,) Jb is used in the second smoothing formula, not the 
smoothed value from the first formula. Similarly, for the rj = 1 wall, 

0*4 = \ £fo*4 + 1 + 2(m 4 + ^4- 
+ 1 = \ t(^4 + 2 + 20*4 + 1 + o*4 ] 

where the boundary' between the inner and outer regions falls between between j = j b + 1 and j =j b . 

Remarks 

1. To avoid the possibility of floating point errors, the value of |n| ^ used to compute t + and it is set to 
a minimum of 10 -10 . 

2. The Cray search routine ISRCHEQ is used in determining the grid locations for debug printout. 

3. This subroutine generates output for the IDEBUG(8) option. 
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Subroutine BLIN2 


Called by 


TURBBL 


Calls 

Purpose 

ISRCHEQ 

Compute inner layer turbulent viscosity along constant rj lines. 


DUMMY 


* INNER 

* IPRT1A, IPRT2A 
IT 

* IWALL1 
12 

* LWALL1 
MU 

* NOUT 
NPRT1, NPRT2 

* N1 

* RER 

RHO, U, V, W 
VORT 
X, Y 

Output 

DUMMY 

Description 


Van Driest damping constant A+. 

Constant B in the Spalding- Kleinstein inner layer model. 

Exponent n in the Launder- Priddin modified mixing length for- 
mula for the inner region of the Baldwin- Lomax turbulence 
model. 

Von Kajrman mixing length constant used in the inner region of 
the Baldwin- Lomax and Spalding- Kleinstein models. 

Outer layer turbulent viscosity coefficient {pouter along constant r\ 
lines. 

Debug flags. 

Flag for Launder- Priddin modified mixing length formula in the 
Baldwin- Lomax inner region model. 

Flag for type of inner region model. 

Indices for printout in the £ and r\ directions. 

Current time step number n . 

Flags indicating whether or not the £ boundaries are walls. 

Grid index j in the t] direction. 

Flags specifying wall locations for £ boundaries. 

Laminar coefficient of viscosity j uj. 

Unit number for standard output. 

Total number of indices for printout in the £ and r\ directions. 
Number of grid points N\ in the £ direction. 

Reference Reynolds number Re r . 

Static density p, and velocities w, v, and w. 

Total vorticity magnitude. 

Cartesian coordinates x and y t or cylindrical coordinates x and r. 
Turbulent viscosity coefficient p r along constant ^ lines. 


Subroutine BLIN2 computes the inner layer turbulent viscosity coefficient (fi ( ) inner at a specified >7 lo- 
cation (i.e., due to walls at f = 0 and/or ( = 1.) The procedure is exactly analogous to that used in sub- 
routine BLINT. 
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Subroutine BLKOUT (I1PT ? I2PT,A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

ADI 

AVISC1 

AVISC2 

BCGEN 

FILTER 


Print coefficient blocks at specified indices in the £ and >7 directions. 


Input 

A, B, C 

* IHSTAG 
IS WEEP 

* ISWIRL 
I1PT, I2PT 

NC, NXM, NYM, NZM, NEN 
NEQ 

* NOUT 
NVD, NPTSD 
S 

Output 

None. 

Description 

Subroutine BLKOUT prints the coefficient block submatrices A, B, and C, and the source term sub- 
vector S at the grid points specified by I1PT and I2PT. This is the routine that actually prints the output 
for the IDEBUG(l) through IDEBUG(4) options. 


Coefficient submatrices A, B, and C 

Flag for constant stagnation enthalpy option. 

Current ADI sweep number. 

Flag for swirl in axi symmetric flow. 

Indices for printout in the f and rj directions. 

Array indices associated with the continuity, x-momentum, 
^-momentum (or r-momentum if axisymmetric), swirl momen- 
tum, and energy equations. 

Number of coupled equations being solved, N eq . 

Unit number for standard output. 

Leading two dimensions for the arrays A, B, C, and S. 

Source term subvector S. 
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Subroutine BLK2 (A,B,C,S, NVD, NPTSD) 

Called by 

Calls 

Purpose 

EXECT 


Solve 2x2 block tridiagonal system of equations. 


Input 


A, B, C 

NPTS 

NV 

NVD, NPTSD 
S 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, N. 
Number of grid points in the "vectorized" direction, N v . 
Leading two dimensions for the arrays A, B, C, and S. 
Source term subvector S. 


Output 

S Computed solution subvector. 

Description 

Subroutine BLK2 solves a block tridiagonal system of equations with 2x2 blocks using the block ma- 
trix version of the Thomas algorithm. The algorithm is described in Section 7.2.1 of Volume 1. For clarity, 

that description involves additional "new" matrices D, E, and AQ'. In Fortran, however, we can save 
storage by overwriting B, C, and S. The following table relates the algorithm as implemented in Fortran 
to the notation used in Volume 1, for the first ADI sweep. An exactly analogous procedure is followed for 
the second sweep. 


Step 

In Fortran 

In Volume 1 Notation 

i 


D 2 = B2 

2a 

Solve B 2 E 2 = Ci for E 2 , storing result in C 2 

E2 = D 2 C 2 

2b 

Solve B 2 AQ 2 = S 2 for AQ 2 , storing result in S 2 

AQ 2 =Dj>S 2 


For i = 3 to Ni — 1, 


3a 

Compute B, - A,C,_,, storing result in B, 

D, = B, — A,E, _ 1 

3b 

Compute S, - A,S, _i, storing result in S, 

S, - A,AQ'_i 

3c 

Solve B,E, = C, for E„ storing result in C, 

E, = D, >C, 

3d 

Solve B,AQ; = S, for AQI , storing result in S, 

AQ' =Dr‘(S,- A,AQ'_i) 

4 


AQ s\ - 1 = AQVi - 1 


For i = N\ — 2 to 2, 


5 

Compute S, - C,S, + I , storing result in S, 

AQ, = AQ' — E,AQ, + 1 


Remarks 

1. The notation used in the comments in BLK2 is consistent with the notation used in the description of 
the algorithm in Volume 1. However, BLK2 is actually used to solve the k-t turbulence model 
equations, and the boundary conditions for these equations are treated explicitly. That's why the index 
in BLK2 runs from i = 2 to N t - 1, instead of from t = 1 to AT In addition, in BLK2 the matrix D 1 
is computed directly, rather than by LU decomposition. 


118 4.0 Proteus Subprograms; BLK2 


Proteus 2-D Programmer's Reference 






2. The Thomas algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV , subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLK2P (A.B.C.S.NVD, NPTSD) 

Called by 

Calls 

Purpose 

EXECT 


Solve 2x2 periodic block tridiagonal system of equations. 


Input 


A, B, C 

NPTS 

NV 

NVD, NPTSD 
S 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, N. 
Number of grid points in the "vectorized" direction, N v . 
Leading two dimensions for the arrays A, B, C, and S. 
Source term subvector S. 


Output 

S Computed solution subvector. 

Description 

Subroutine BLK2P solves a periodic block tridiagonal system of equations with 2x2 blocks. An effi- 
cient algorithm similar to the block matrix version of the Thomas algorithm is used to solve the equations. 
The algorithm is described in Section 7.2.2 of Volume 1. For clarity, that description involves additional 

"new" matrices D, E, F, G, and AQ'. In Fortran, however, we can save storage by overwriting A, B, C, and 
S. The following table relates the algorithm as implemented in Fortran to the notation used in Volume 1, 
for the first ADI sweep. An exactly analogous procedure is followed for the second sweep. 


Step 

In Fortran 

In Volume 1 Notation 

la 


D 2 =B2 

lb 


f 2 = C* 3 

2a 

Solve B 2 E 2 = C 2 for E 2 , storing result in C 2 

e 2 = d 2 -c 2 

2b 

Solve B 2 G 2 = A 2 for G 2 , storing result in A 2 

g 2 = d 2 >a 2 

2c 

Solve B 2 AQ 2 = S 2 for AQ 2 , storing result in S 2 

aq 2 = d 2 | s 2 


For / = 3 to Ni — 1, 


3a 

Compute B, — AiC,-_i, storing result in B, 

D, = B, — A,E,_i 

3b 

Compute Si — A t S, _ 1? storing result in S t 

S, - A,AQ ,_ , 

3c 

Compute — A/Ai«i, storing result in A f 

— A,G, _ j 

3d 

Solve B ( E, = Ci for E„ storing result in C £ 

E, = D, 'C, 

3e 

Solve B G, = A, for G„ storing result in A, 

G, = D; A G _ , 

3f 

Solve BAQ' = S, for AQ; , storing result in S, 

AQ' =Dr 1 (S,-A 1 AQ'_i) 
1—1 

3g 

Compute — C N{ A t _ u storing result in B iVl 

BjV, — X FyGy 
y = 2 

3h 

Compute S N] — storing result in S Nl 

S^-XF ; AQ' 

3i 

Compute — C iVl Ci_i, storing result in C iVl 

F, = -F, -iE,-! 
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Step 

In Fortran 

In Volume 1 Notation 

4a 

Compute A Nl _ x + Cm _ l5 storing result in Am _ x 

Qtfl - 1 = i(Cm _ ] — A, Vl _ iG jVi _ 2 ) 

4b 

Compute Am + C Nv storing result in C Nx 

Fm - 1 = Am — ¥ Nl _ 2 E* _ 2 




4c 

Compute — Cm Am _ lf storing result in B N} 

D Vl — Bm — F G, 

i = 2 

4d 

Compute S iVl — _ lf storing result in Sm 

*1-1 

Sm - s f^q; 

< = 2 

4f 

A A 

Solve BatjAQaj = S N{ for AQm , storing result in Sm 

AQV, = D* 1 1 (S„ 1 - \V,AQ') 

i = 2 

5 


AQm = AQm 

6 

Compute S Nl _ x — A Nl _ ^m, storing result in Sm - 1 

AQm - \ = AQm _ i — Gm - 1 AQm 


For i = V] — 2 to 2, 


7 

Compute S, — A,Sm — C,S« + 1 , storing result in S, 

AQ, = AQ' - GAQ*, - E,AQ, + 1 

8 

E 

AQ, = AQ*, 


Remarks 

1. The notation used in the comments in BLK2P is consistent with the notation used in the description 
of the algorithm in Volume 1. However, in BLK2P the matrix D“ l is computed directly, rather than 
by LU decomposition. 

2. The solution algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLK3 (A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

ADI 

FILTER 

Solve 3x3 block tridiagonal system of equations. 


A, B, C 

NPTS 

NV 

NVD, NPTSD 
S 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, N. 
Number of grid points in the "vectorized" direction, N v . 
Leading two dimensions for the arrays A, B, C, and S. 
Source term subvector S. 


Output 

S Computed solution subvector. 

Description 

Subroutine BLK3 solves a block tridiagonal system of equations with 3x3 blocks using the block ma- 
trix version of the Thomas algorithm. Subroutine FILTER is called in an attempt to eliminate any zero 
values on the diagonal of the submatrix B at the two boundaries. These can occur when mean flow 
boundary conditions are specified using the JBC and/or IBC input parameters, depending on the initial 
conditions and the order of the boundary conditions. 

The algorithm is described in Section 7.2. 1 of Volume L For clarity, that description involves additional 

"new" matrices D, E, and AQ'. In Fortran, however, storage is saved by overwriting B, C, and S. The 
following table relates the algorithm as implemented in Fortran to the notation used in Volume 1, for the 
first ADI sweep. An exactly analogous procedure is followed for the second sweep. 


Step 

In Fortran 

In Volume 1 Notation 

1 


D, = B, 

2a 

LU decompose Bi, storing result in Bi 

LU decomposition of Dl 

2b 

Solve El Ei = Ci for Ei using LU decomposition of 

E^Dr'C, 


Bi, storing result in Ci 


2c 

Solve B,AQ! = S 1 for AQi using LU decomposition 
of Bi , storing result in Si 

AQi =DrSi 


For i = 2 to Nu 



Compute B, — - u storing result in B, 

D, = B, A,E, - 1 


Compute Si — A.S, - 1 , storing result in S, 

S, - A,AQ'_, 

3c 

LU decompose B„ storing result in B, 

LU decomposition of D, 

3d 

Solve B ( E t = C, for E, using LU decomposition of B„ 

E, = Dr c, 


storing result in C, 

A A 

3e 

Solve B,AQ' = S, for AQ' using LU decomposition 

AQ' =Dr 1 (S,-A,AQ'-i) 


of B„ storing result in S, 


4 


AQ ~ AQ'n\ 
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Step 

In Fortran 

In Volume 1 Notation 

5 

For / = Vi — 1 to 1 , 

Compute S, — C/S,-* i, storing result in S, 

AQ, = AQ' -E AQ -i 


Remarks 

1. The notation used in the comments in BLK3 is consistent with the notation used in the description of 
the algorithm in Volume 1. 

2. The Thomas algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLK3P (A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

ADI 


Solve 3x3 periodic block tridiagonal system of equations. 


Input 

A, B, C Coefficient submatrices A, B, and C 

NPTS Number of grid points in the sweep direction, N. 

NV Number of grid points in the 'Vectorized" direction, N v . 

NVD, NPTSD Leading two dimensions for the arrays A, B, C, and S. 

S Source term subvector S. 

Output 

S Computed solution subvector. 

Description 


Subroutine BLK3P solves a periodic block tridiagonal system of equations with 3x3 blocks. An effi- 
cient algorithm similar to the block matrix version of the Thomas algorithm is used to solve the equations. 
The algorithm is described in Section 7.2.2 of Volume 1. For clarity, that description involves additional 

"new" matrices D, E, F, G, and AQ'. In Fortran, however, storage is saved by overwriting A, B, C, and 
S. The following table relates the algorithm as implemented in Fortran to the notation used in Volume 1, 
for the first ADI sweep. An exactly analogous procedure is followed for the second sweep. 


Step 

In Fortran 

In Volume 1 Notation 

la 


D 2 =B2 

lb 


f 2 = c„, 

2a 

LU decompose B 2 , storing result in B 2 

LU decomposition of D 2 

2b 

Solve B 2 E 2 = C 2 for E 2 using LU decomposition of 
B 2 , storing result in C 2 

e 2 = d 2 >c 2 

2c 

Solve = A 2 for G 2 using LU decomposition of 

B 2 , storing result in A 2 

g 2 = d 2 >a 2 

2d 

Solve B 2 AQ 2 = S 2 for AQ 2 using LU decomposition 
of B 2 , storing result in S 2 

AQ 2 =Di'S2 
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Step 

In Fortran 

In Volume 1 Notation 


For i — 3 to A r i — 1 , 


3a 

Compute B ( — A ( C, _ u storing result in B t 

D, = B, — A,E,_ ! 

3b 

Compute S< — A,S,_ 1? storing result in S ,■ 

S, — A,AQ'_i 

3c 

Compute — A.A/-!, storing result in A, 

“ A,G* . i 

3d 

LU decompose B„ storing result in B, 

LU decomposition of D, 

3e 

Solve B,E, = C, for E t using LU decomposition of B„ 
storing result in C, 

E, = D, C, 

3f . 

Solve B,G, = A, for G, using LU decomposition of B,, 
storing result in A, 

G z = Dr 1 A.G, _ i 

3g 

Solve B AQ' = S z for AQ' using LU decomposition 

AQ' =Dr'(S,-A,AQ'_ 1 ) 


of B„ storing result in S, 

i - 1 

3h 

Compute B jVl — storing result in B Nl 

— I FG 

;=2 

3i 

Compute S Al — C Nl S f ^ u storing result in 

s*. - X f,aq; 

; = 2 

3j 

Compute — C^C ( _ u storing result in 

F, = — F.-jE,., 

4a 

Compute A^ _ L + C Nl _ i, storing result in A^ _ i 

Qvt - 1 = D^/ - i(C Al - 1 — A^j _ iG^ - 2 ) 

4b 

Compute A.vj 4* C/r l% storing result in C^ 

F^l - 1 = A^ — F* _ - 2 

4c 

Compute B iVl — storing result in B*, 

D Al = B^ — X F,G,- 

1 = 2 

4d 

Compute S Nl — C^S^ _ u storing result in S N{ 

* 1-1 

S* - X F AQ' 

1 = 2 

4e 

LU decompose storing result in B^ 

LU decomposition of 

&Q'ni ^d^-Waq;) 

4f 

A A 

Solve Biv^QVj = for AQ'y, using LU decompos- 


ition of Bjvp storing result in S Nl 

1=2 

5 


AQ^ = AQ Al 

6 

Compute S Al _ i — A Nl _ jS Al , storing result in _ ! 

A A A 

A Q.V! - 1 = AQVj - 1 ~ G Al _ jAQ^j 


(N 

0 
<N 

1 

II 

Wh 

o 


7 

Compute S, — A t S Nl — CS I + u storing result in S, 

AQ, = AQ' - G AQa, - E,AQ, + , 

8 

£ 

AQi — aq Ai 


Remarks 

1. The notation used in the comments in BLK3P is consistent with the notation used in the description 
of the algorithm in Volume 1. 

2. The solution algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLK4 (A,B,C,S,NVD,NPTSD) 


Called by 

Calls 

Purpose 

ADI 

FILTER 

Solve 4x4 block tridiagonal system of equations. 


Input 


A, B, C 

NPTS 

NV 

NVD, NPTSD 
S 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, N. 
Number of grid points in the 'Vectorized" direction, N v . 
Leading two dimensions for the arrays A, B, C, and S. 
Source term subvector S. 



Computed solution subvector. 


Subroutine BLK4 solves a block tridiagonal system of equations with 4x4 blocks using the block ma- 
trix version of the Thomas algorithm. Subroutine FILTER is called in an attempt to eliminate any zero 
values on the diagonal of the submatrix B at the two boundaries. These can occur when mean flow 
boundary conditions are specified using the JBC and/or IBC input parameters, depending on the initial 
conditions and the order of the boundary conditions. 


The algorithm is described in Section 7.2.1 of Volume 1, For clarity, that description involves additional 

"new" matrices D, E, and AQ'. In Fortran, however, storage is saved by overwriting B, C, and S. The al- 
gorithm is identical to that used in subroutine BLK3. See the description of that subroutine for a table 
relating the algorithm as implemented in Fortran to the notation used in Volume 1. 


Remarks 

1. The notation used in the comments in BLK4 is consistent with the notation used in the description of 
the algorithm in Volume 1. 

2. The Thomas algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLK4P (A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

ADI 


Solve 4x4 periodic block tridiagonal system of equations. 


Input 

A, B, C Coefficient submatrices A, B, and C 

NPTS Number of grid points in the sweep direction, N. 

NV Number of grid points in the 'Vectorized"' direction, AV 

NVD, NPTSD Leading two dimensions for the arrays A, B, C, and S. 

S Source term subvector S. 

Output 

S Computed solution subvector. 


Description 

Subroutine BLK4P solves a periodic block tridiagonal system of equations with 4x4 blocks. An effi- 
cient algorithm similar to the block matrix version of the Thomas algorithm is used to solve the equations. 
The algorithm is described in Section 7.2.2 of Volume 1. For clarity, that description involves additional 

"new" matrices D, E, F, G, and AQL In Fortran, however, storage is saved by overwriting A, B, C, and 
S. The algorithm is identical to that used in subroutine BLK3P. See the description of that subroutine for 
a table relating the algorithm as implemented in Fortran to the notation used in Volume 1. 

Remarks 

1. The notation used in the comments in BLK4P is consistent with the notation used in the description 
of the algorithm in Volume 1. 

2. The solution algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLK5 (A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

ADI 

FILTER 

Solve 5x5 block tridiagonal system of equations. 


Input 

A, B, C 

NPTS 

NV 

NVD, NPTSD 
S 

Output 

S 

Description 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, N. 
Number of grid points in the "vectorized" direction, N v . 
Leading two dimensions for the arrays A, B, C, and S. 
Source term subvector S. 


Computed solution subvector. 


Subroutine BLK5 solves a block tridiagonal system of equations with 5x5 blocks using the block ma- 
trix version of the Thomas algorithm. Subroutine FILTER is called in an attempt to eliminate any zero 
values on the diagonal of the submatrix B at the two boundaries. These can occur when mean flow 
boundary conditions are specified using the JBC and/or IBC input parameters, depending on the initial 
conditions and the order of the boundary conditions. 

The algorithm is described in Section 7.2.1 of Volume 1. For clarity, that description involves additional 

"new" matrices D, E, and AQ'. In Fortran, however, storage is saved by overwriting B, C, and S. The al- 
gorithm is identical to that used in subroutine BLK3. See the description of that subroutine for a table 
relating the algorithm as implemented in Fortran to the notation used in Volume 1. 

Remarks 

L The notation used in the comments in BLK5 is consistent with the notation used in the description of 
the algorithm in Volume 1. 

2. The Thomas algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 
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Subroutine BLK5P (A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

ADI 


Solve 5x5 periodic block tridiagonal system of equations. 


Input 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, A ; . 

Number of grid points in the 'Vectorized" direction, K. 

Leading two dimensions for the arrays A, B, C, and S. 

Source term subvector S. 

Output 

S Computed solution subvector. 

Description 

Subroutine BLK5P solves a periodic block tridiagonal system of equations with 5x5 blocks. An effi- 
cient algorithm similar to the block matrix version of the Thomas algorithm is used to solve the equations. 
The algorithm is described in Section 7.2.2 of Volume 1. For clarity, that description involves additional 

"new'' matrices D, E, F, G, and AQ'. In Fortran, however, storage is saved by overwriting A, B, C, and 
S. The algorithm is identical to that used in subroutine BLK3P. See the description of that subroutine for 
a table relating the algorithm as implemented in Fortran to the notation used in Volume 1 . 

Remarks 

1. The notation used in the comments in BLK5P is consistent with the notation used in the description 
of the algorithm in Volume 1. 

2. The solution algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in both directions, the algorithm 
can be vectorized in the non-sweep direction. That is the reason for the first, or IV, subscript on the 
A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. This increases 
the storage required by the program, but greatly decreases the CPU time required for the ADI solution. 


A, B, C 

NPTS 

NV 

NVD, NPTSD 
S 
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BLOCK DATA Subprogram 


Called bv I Calls 


Purpose 


Set default values for input parameters, plus a few other parameters. 


None. 


All namelist input parameters, plus: 
CCP1, CCP2, CCP3, CCP4 

CK1, CK2 

CMU1, CMU2 


IBCELM 


IBVUP 


ICONV 

IGINT 


ITBEG 

KBCPER 


NC, NXM, NYM, NZM, NEN 


NR, NRU, NRV, NRW, NET 


Constants in formula for specific heat. (8.53 x 1 0 3 , 3.12 x 10*, 
2.065 x 10 6 , 7.83 x 10 8 ) 16 

Constants in formula for laminar thermal conductivity coefficient. 
(7.4907 x 10- 3 , 350.0)“ 

Constants in formula for laminar viscosity coefficient. (7.3035 
x 10- 7 , 198.6)“ 

Proportionality factor g c in Newton's second law. (32.174) 16 

Flags for elimination of off-diagonal coefficient submatrices re- 
sulting from three-point boundary conditions in the { and r; di- 
rections at either boundary; 0 if elimination is not necessary, 1 if 
it is. (2*0, 2*0) 

Flags for updating boundary' values from first sweep after second 
sweep; 0 if updating is not necessary, 1 if it is. (0,0) 

Convergence flag; 1 if converged, 0 if not. (0) 

Flags for grid interpolation requirement for the £ and tj directions; 

0 if interpolation is not necessary, 1 if it is. (0,0) 

The time level n at the beginning of a run. (1) 

Flags for spatially periodic boundary conditions in the c and rj 
directions; 0 for non-periodic, 1 for periodic. (0,0) 

Array indices associated with the continuity, x-momentum, 
y-momentum (or r-momentum if axisymmetric), swirl momen- 
tum, and energy equations. (1,2, 3, 5, 4) 

Unit number for standard input. (5) 

Array indices associated with the dependent variables p, pu, pv, 
pw, and Er . (1,2,3, 5, 4) 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. (NMAXP*1.0) 

Initial time value t. (NTOTP*0.0) 


16 These values are for reference conditions specified in English units. Values for SI units are set in subroutine IN- 
PUT. 


130 4.0 Proteus Subprograms; BLOCK DATA 


Proteus 2-D Programmer's Reference 





Description 


The BLOCK DATA routine is used to set default values for all the input parameters, plus various other 
parameters and constants. The defaults for all the input parameters are given as part of the standard input 
description in Section 3.1 of Volume 2. The values for the other parameters and constants set in BLOCK 
DATA are given in parentheses in the above output description. Note that some of these values assume 
Enghsh units are being used to specify reference conditions. If SI units are being used, these values are re- 
defined in subroutine INPUT. 

Remarks 

1 . Most of the default values are defined directly, but some, like the reference viscosity MUR, are set equal 
to zero and defined in subroutine INPUT if not specified by the user. 
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Subroutine BLOUT1 

Called by 

Calls 

Purpose 

TURBBL 

ISAMAX 

ISAMIN 

ISRCHEQ 

Compute outer layer turbulent viscosity, using the algebraic Baldwin- 
Lomax model, along constant £ lines. 


* APLUS 

* CB 

* CCLAU 

* CCP 

* CKLEB, CKMIN 

* CNA 

* CWK 

* IDEBUG 

* IPRT1A, IPRT2A 
IT 

* IWALL2 
II 

* LWALL2 
MU 

* NOUT 
NPRT1, NPRT2 

* N2 

* RER 

RHO, U, V, W 
VORT 
X, Y 

Output 

LWAKE2 


MUT 


Van Driest damping constant A+. 

Constant B in the Klebanoff intermittency factor. 

Clauser constant K in the Baldwin- Lomax outer region model. 

Constant C cp in the Baldwin- Lomax outer region model. 

Constants C Kieb and (C*/«*) m< -„ in the Klebanoff intermittency factor. 

Exponent n in the formula used to average the two outer region 
profiles that result when both boundaries in a coordinate di- 
rection axe solid surfaces. 

Constant C wk in the Baldwin- Lomax outer region model. 

Debug flags. 

Indices for printout in the £ and rj directions. 

Current time step number n. 

Flags indicating whether or not the rj boundaries are walls. 

Grid index i in the f direction. 

Flags specifying wall locations for *7 boundaries. 

Laminar coefficient of viscosity p/. 

Unit number for standard output. 

Total number of indices for printout in the £ and *] directions. 
Number of grid points N 2 in the rj direction. 

Reference Reynolds number Re r . 

Static density p, and velocities u, v, and w. 

Total vorticity magnitude. 

Cartesian coordinates x and;;, or cylindrical coordinates x and r. 


Grid index j in the v\ direction used as the origin for computing 
length scales for free turbulent flows. 

Outer layer turbulent viscosity coefficient (pouter along constant £ 
lines. 


Description 

Subroutine BLOUT1 computes the outer layer turbulent viscosity coefficient (/x r ) ou ter at a specified £ 
location (i.e., due to walls at rj = 0 and/or t\ = 1 , or due to a free turbulent flow in the \ direction) using the 
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algebraic eddy viscosity model of Baldwin and Lomax (1978). The model is described in Section 9.1 of 
Volume 1. The steps performed in BLOUT1 are as follows: 


1. Find the values and locations of I V\ and I V\ 

1 1 max 1 1 min 

2. Compute the parameter 


1 7 — 

r wake 


I ymax^max 

r t / 2 Vinax 
^ wk v diff p 

■* mn r 


for wall-bounded flows 
for free turbulent flows 


where C wk is a constant taken as 


0.25, and 



max 


V 


min 


where V is the total velocity vector. The procedure for computing the parameter F max depends on 
whether a solid wall exists at r\ = 0 and/or at y\ = 1 . 

3. If, at the current £ location, the rj — 0 boundary is a solid wall, compute (jF m(rx )i as follows: 

3a. For w-indices from the wall to the location of I V\ , compute 

^ r 0 ; n )=^|^|( 1 ~ e ~ y M ) 

3b. Get the location of the maximum value of F(y n ), calling its y \ -index L x . Tentatively set 

(Tj7} 0 jc)l 

3c. Search outward from this location for a local minimum in If one is found, call its >?-index 

Fmin- 

3d. If a local minimum exists, get the location of the next maximum value of F(y n ), calling its ^-index 
L2. This is the location of the second peak in F(y n ). Let 

AF, = F(y n ) Ly - F(y n ) Lmui 

AF 2 = F(y n ) L2 -F(y n ) Lmin 

Then, if AF 2 > 0.25A F u set (L max )\ = U- This test is intended to filter false peaks resulting from 
noise, or wiggles, in F(y n ). 

3e. Set (F m ax)\ = F(y n ) at the ^-index (L max ) ,, and set y miX equal to the corresponding value of y n . 

4. If, at the current £ location, the rj = 1 boundary is a solid wall, compute (F max ) 2 - The procedure is ex- 
actly analogous to the procedure described in steps 3a- 3e for computing (F m «)i at the rj — 0 wall. 

5. If neither >7 boundary is a solid wall, a free turbulent flow in the £ direction is assumed, 
the required value of F max is computed as follows: 

5a. For M-indices between the locations of I V\ and 1 V\ , and using the location of 

. . * r > 1 min 1 * max 

origin for y ni compute 

Get the location of the maximum value of F(y n ), and compute F wake . 

5b. Repeat step 5a using the location of I V I as the origin for y n . 

11 min 

5c. Set the fmal value of F wake equal to the one from step 5a or 5b that corresponds to the smaller value 
of y m ax- Set Uake accordingly. 


In this case, 
| V\ as the 

* I max 
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6. If a solid wall exists at rj = 0 or at r\ = 1, but not both, or if neither rj boundary is a solid wall, compute 
{^dourer directly. 

7. If both y\ boundaries are solid walls, compute by combining the two computed values of F wake 

using the averaging formula presented as equation (9.12) of Volume 1. 

Remarks 

1. The computation of y n , the normal distance to the wall or wake centerline, is approximate. It is actually 
the straight-line distance between the interior grid point and the wall or wake centerline grid point. 

2. The Cray search routines ISAMAX and ISAMIN are used in computing J V max \ , | V mtn | , and F max . The 
Cray search routine ISRCHEQ is used in determining the grid locations for debug printout. 

3. If the maximum and minimum total velocities are equal, indicating a uniform flow along this particular 
£ line, their locations are arbitrarily set equal to the middle rj index, and the turbulent viscosity coeffi- 
cient (figure, is set equal to 0. This normally would occur only during the first time step in a case with 
uniform initial velocity profiles. 

4. To avoid the possibility of floating point errors, the values of | K m „| , | V mtn \ , F max) and y max are set to a 
minimum of 10” 10 . 

5. This subroutine generates output for the IDEBUG(8) option. 
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Subroutine BLOUT2 


Called by 

Calls 

Purpose 

TURBBL 

ISAMAX 

ISAMIN 

ISRCHEQ 

Compute outer layer turbulent viscosity, using the algebraic Baldwin- 
Lomax model, along constant r\ lines. 


Input 

* APLUS 

* CB 

* CCLAU 

* CCP 

* CKLEB, CKMIN 

* CNA 

* CWK 

+ IDEBUG 
+ IPRT1A, IPRT2A 
IT 

* I WALL 1 

12 

* LWALL1 
MU 

* NOUT 
NPRT1, NPRT2 

* N1 

* RER 

RHO, U, V, W 
VORT 
X, Y 

Output 

LWAKE1 


DUMMY 


Van Driest damping constant A+. 

Constant B in the Klebanoff intermittency factor. 

Clauser constant K in the Baldwin- Lomax outer region model. 

Constant C cp in the Baldwin- Lomax outer region model. 

Constants Cjcieb and (C K ieb)mm in the Klebanoff intermittency factor. 

Exponent n in the formula used to average the two outer region 
fi t profiles that result when both boundaries in a coordinate di- 
rection are solid surfaces. 

Constant C wk in the Baldwin- Lomax outer region model. 

Debug flags. 

Indices for printout in the £ and y\ directions. 

Current time step number n . 

Flags indicating whether or not the £ boundaries are walls. 

Grid index j in the yj direction. 

Flags specifying wall locations for f boundaries. 

Laminar coefficient of viscosity fi { . 

Unit number for standard output. 

Total number of indices for printout in the £ and rj directions. 
Number of grid points N\ in the £ direction. 

Reference Reynolds number Re r . 

Static density p, and velocities u , v, and w. 

Total vorticity magnitude. 

Cartesian coordinates x and y 9 or cylindrical coordinates x and r. 


Grid index / in the £ direction used as the origin for computing 
length scales for free turbulent flows. 

Outer layer turbulent viscosity coefficient {fi x ) ouur along constant rj 
lines. 


Description 

Subroutine BL0UT2 computes the outer layer turbulent viscosity coefficient {fi) outer at a specified rj 
location (i.e., due to walls at £ = 0 and/or = 1, or due to a free turbulent flow in the t] direction) using the 
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algebraic eddy viscosity model of Baldwin and Lomax (1978). The procedure is exactly analogous to that 
used in subroutine BLOUT1. 
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Subroutine BVUP (A,B,C,S,METX,METY,METT,NVD,NPTSD) 


Called by 

Calls 

Purpose 

EXEC 

BCGEN 

EQSTAT 

SGEFA 

SGESL 

Update first sweep boundary values after second sweep. 


Input 

A, B, C 

DXI 

IBVUP 

* IHSTAG 

* ISWIRL 
JI 

KBCPER 

NEQ 

NEQP 

NPT1, NPT2 

NR, NRU, NRV, NRW, NET 

NVD, NPTSD 

* Nl, N2 
NIP 

RHO, U, V, W, ET 
RHOL, UL, VL, WL, ETL 
S 

XIX, XIY, XIT 


Coefficient submatrices A, B, and C. 

Computational grid spacing A£. 

Flags for updating boundary values from first sweep after second 
sweep; 0 if updating is not necessary, 1 if it is. 

Flag for constant stagnation enthalpy option. 

Flag for swirl in axisymmetric flow. 

Inverse Jacobian of the nonorthogonal grid transformation, V' 1 . 

Flags for spatially periodic boundary conditions in the £ and rj 
directions; 0 for non-periodic, 1 for periodic. 

Number of coupled equations being solved, N cr 

Dimensioning parameter specifying maximum number of coupled 
equations allowed. 

Ni and N 2 for non-periodic boundary conditions, N\ + 1 and 
N 2 + 1 for spatially periodic boundary conditions in £ and rj. 

Array indices associated with the dependent variables p, pu, p\\ 
pw, and Et. 

Leading two dimensions for the arrays A, P, C, and S. 

Number of grid points N\ and N 2l in the £ and rj directions. 

Parameter specifying the dimension size in the c direction. 

Static density p, velocities u , v, and w, and total energy Et at time 
level n at all grid points. 

Static density p, velocities u, v, and w, and total energy £> at time 
level n + 1 at all interior grid points. 

Source term subvector S. 

Metric coefficients q X) £ y (or £ r if axisymmetric), and 


Output 


DEL 

IBASE, ISTEP 


IS WEEP 
IV 

METX, METY, METT 


Computational grid spacing for the sweep direction being updated. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

ADI sweep number for sweep direction being updated. 

Index in the "vectorized" direction, 4- 

Derivatives of computational coordinate, for the sweep direction 
being updated, with respect to x, y (or r if axisymmetric), and t . 
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NPTS 

NV 

RHOL, UL, VL, WL, ETL 


Number of grid points N in the sweep direction being updated. 

Number of grid points in the "vectorized" direction, N ¥ . 

Static density p, velocities u , v, and w, and total energy E T at time 
level n - h 1 at boundary' points from first sweep. 


Description 


Subroutine BVUP updates boundary values from the first, or f , sweep after the second, or 17, sweep. 
In general, this is necessary 7 when gradient or extrapolation boundary conditions are used in the c direction. 
Some updating is also necessary when spatially periodic boundary conditions are used. The procedure is 
described in Section 7.3 of Volume 1 for all cases. 

Remarks 


1. The comer values of p and E r are updated by linearly extrapolating from the two adjacent points in the 
£ and r\ directions, and averaging the two results. Note that this extrapolation is done in computational 
space. Grid packing in either direction is thus not taken into account. The comer values of the ve- 
locities are updated by doing the same type of extrapolation. Instead of averaging, however, the ex- 
trapolated velocity whose absolute value is lower is used. This was done to maintain no-slip at duct 
inlets and exits. 

2 . Subroutines SGEFA and SGESL are Cray UNPACK routines. In general terms, if the Fortran arrays 
A and S represent A and S, where A is a square N by N matrix and S is a vector with N elements, and 
if the leading dimension of the Fortran array A is LDA, then the Fortran sequence 

call sgefa ( a , Ida , n , ipvt , inf o) 
call sgesl (a , Ida , n , ipvt , s, 0 ) 

computes A~ [ S, storing the result in S. 
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Subroutine COEFC (A.B, C,S, METX, METY, METT, NVD,NPTSD) 


Called by Calls 


EXEC 


Purpose 


Compute coefficients and source term for the continuity equation. 


DTAU 

DXI, DETA 

ETAX, ETAY, ETAT 


IBASE, ISTEP 


* IHSTAG 
ISWEEP 

* ISWIRL 


METX, METY, METT 


NPTS 

NR, NRU, NRV, NRW, NET 


NVD, NPTSD 


RHO, U, V 
RHOL 


♦ THC 


XIX, XIY, XIT 


Output 


A, B, C 


Computational grid spacing in sweep direction. 

Time step At. 

Computational grid spacing A£ and A rj. 

Metric coefficients rj x , q, (or r\ r if axisymmetric), and tj t . 

Flag for axisymmetric flow. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Flag for constant stagnation enthalpy option. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Index in the "vectorized" direction, i. 

Grid indices / and j, in the £ and rj directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ x 
(times the radius r for axisymmetric flow.) 

Derivatives of sweep direction computational coordinate with re- 
spect to .x, y (or r if axisymmetric), and t. 

Array index associated with the continuity equation. 

Number of coupled equations being solved, N eq . 

Number of grid points in the sweep direction, N. 

Array indices associated with the dependent variables p, pu, pv, 
pw, and £V- 

Leading two dimensions for the arrays A, B, C, S, METX, 
METY, and METT. 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. 

Static density p, and velocities u and v, at time level n . 

Static density p from previous ADI sweep. 

Parameters 8 1 and 0 2 determining type of time differencing for the 
continuity equation. 

Metric coefficients £ xy £, (or £, if axisymmetric), and 
Radial coordinate r for axisymmetric flow. 


Coefficient submatrices A, B, and C at interior points (row NC 
only). 
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s 


Source term subvector S at interior points (element NC only). 


Description 

Subroutine COEFC computes the coefficients and source term for the continuity equation. Equations 
(7.5a-b) in Volume 1 represent, in vector form, the four governing difference equations for the two ADI 

A A 

sweeps for 2-D planar flow. The elements of the inviscid flux vectors E and F are given in Section 2.0 of 

A A 

Volume 1, and the elements of the viscous flux vectors E Vv Ev 2 , etc., are given in Appendix A of Volume 

AAA A 

1. The Jacobian coefficient matrices dEjdQ , dE vJdQ, etc., are given in Section 4.0 of Volume 1. Using 
all of these equations, the differenced form of the continuity equation for 2-D planar flow may be written 
for the tw r o ADI sweeps as 17 


Sweep 1 (£ direction) 


A p t + 


At 


(1 + 9 2 )2A£ 


3E 1 

A 

dQ 


A Q( + 1 - 




1+ 1 

^2 A /\n — 1 

2 


A 

dE x 

A 

dQ 


AQi- , 


i- 1 


Sweep 2 (>? direction) 


A A * . 

A pi + 


6 1 At 


(1 + 0 2 )2A>7 


ggl 

A 

5Q 


AQ7 +1 -| 


y+ 1 


ar, 

A 

dQ 


aq; 


7-1 




7-1 


In the above equations, the subscripts i and j represent grid point indices in the £ and y\ directions. For 
notational convenience, terms without an explicitly written i or j subscript are understood to be at / or j. 


The vector of dependent variables is 


Q = y[p P u P v E t ~] t 

The appropriate elements of the flux vectors are given by 

El = y c + P v Zy + P^J 

A l 

F] = y lpuy x + pvriy + pnj 


The elements of the Jacobian coefficient matrix dE/dQ for the continuity equation are 


dE, 

-7T=U f ^ 0] 

dQ 


17 These equations are written assuming the energy equation is being solved. For a constant stagnation enthalpy case, 
the total energy Ej would not appear as a dependent variable, and the Jacobian coefficient matrices would have 
only three elements. 
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The Jacobian coefficient matrix dFijdQ has the same form as dEJdQ, but with £ replaced by rj. 


As an example of how these equations are translated into Fortran, consider the A (pujJ) term on the left 

A A A 


hand side for the first sweep. This is the second element of Q, so using the second element in dEi/dQ w T e 
get 


0 l(Ax) u 

A(iy,I,NC,NRU) = - -- (T+ g 2) ii y (U- u 

B(IV,I,NC,NRU) = 0 

9 i(At) u 

C(IV,I,NC,NRU)= (lTg2) ^- (^+ w 

The equations for axisymmetric flow are developed in Appendix B of Volume 1. The axi symmetric 
continuity equation for the two ADI sweeps is given by 18 


Sweep 1 (£ direction) 


A ^ + 


g l AT 1 

(1+0 2 )2A^ r 


3E, 

A 

dQ 


A Q i+ t- ' 


J + l 


3E, 

A 

dQ 


A * 

A Q;-i 


i- 1 




Sweep 2 (rj direction) 


A . 

A pj + 


_3iAr_ j_ 
(1 + 0 2 ) 2A*7 r 


A 

A 

5Q 


A 

aF, 


7+1 


aq; +1 - 4 q;_, 

3Q 

' y- 1 


= Ap 


where now 


A 1 

Q=y[p pw p+ pw £r] 


Ej = y [>«{, + pv£ r + p{,] 

A 1 

Fj = y \_puy} x + pvr\ r + p»f f ] 


A 

dE 


dQ 


L =IZ' Zx Zr 0 0 ] 


As in 2-D planar flow, the Jacobian coefficient matrix dFifdQ has the same form as dEi/dQ, but with q 
replaced by r \ . 


18 These equations are written for the general case with swirl. For a non-swirl case, the swirl momentum pw would 
not appear as a dependent variable, and the Jacobian coefficient matrices would have only four elements. 
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Note that the equations for 2-D planar and axisymmetric flow are very similar. In the axisymmetric 

A A 

equations, the radius r appears as an additional coefficient in front of the flux vectors E and F, and in front 

A A A A 

of the Jacobian coefficient matrices 5Ei/3Q and <3Fi/<3Q. In addition, 1 jt appears in front of every term in 
the equation except the A p terms. In Proteus , the Fortran variables are defined in such a way that, for many 
terms, the same coding can be used for both 2-D planar and axisymmetric flow. Unfortunately, this may 
make some of the coding a little confusing. It is hoped that this detailed description, when compared with 
the source listing, will help make things clear. 

In COEFC, the coefficients of the left hand side, or implicit, terms are defined first. The implicit terms 
for the second ADI sweep have exactly the same form as for the first sweep, but with £ replaced by rj. By 
defining DEL, METX, METY, and METT as the grid spacing and metric coefficients in the sweep direc- 
tion, the same coding can be used for both sweeps. The variable RAX is equal to 1 for 2-D planar flow, 
and the radius r for axisymmetric flow. This adds the r in front of the Jacobian coefficient matrices for 
axisymmetric flow, but has no effect for 2-D planar flow. The 1/r coefficient in front of each term will be 
added later. In this section of code, the coefficient of Ap (part of B(IV,I,NC,NR)) is set equal to r, not 1 
as it should be. This will be corrected later. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms. These formulas are presented 
in Section 5.0 of Volume 1. For axisymmetric flow, the Fortran variable JI, which is normally defined as 
1/7, is temporarily redefined as r/7 before the COEF routines are called. This automatically accounts for 
the r coefficient in front of all the flux vectors in the source term. The 1/r coefficient in front of each term 
will be added later. This definition of JI adds an r in front of the A p n ~ l term that should not be there. 
This will also be corrected later. 

The coding for the source term for the second sweep, which consists only of Ap*, comes next. The 
definition of JI also adds an r in front of this term that should not be there. 

And finally, for axisymmetric flow, the entire equation is divided by the local radius r. This adds the 
1/r coefficient where it should be added, and removes the r in front of the Ap terms. 

Remarks 

1. This subroutine uses one -dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. Th; subscripts on the Fortran variables A, B, C, and S may be confusing. The fust subscript is the 
index in the non-sweep (i.e., "vectorized") direction, and the second subscript is the index in the sweep 
direction. For sections of the code that apply to both sweeps (i.e., the implicit terms and the division 
by r at the end), the first two subscripts are written as (IV, I). For sections of the code that apply only 
to the first sweep, the first two subscripts are written as (12,11). For sections that apply only to the 
second sweep, they are written as (11,12). The third subscript on A, B, C, and S corresponds to the 
equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for which 
A, B, or C is a coefficient. 
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Subroutine COEFE (A, B,C,S, METX, METY, METT, NVD.NPTSD) 


Called by 

Calls 

Purpose 

EXEC 


Compute coefficients and source term for the energy equation. 


Input 


DEL 

DPDRHO, DPDRU, DPDRV, 
DPDRW, DPDET 

DTAU 

DTDRHO, DTDRU, DTDRV, 
DTDRW, DTDET 

DXI, DETA 

ETAX, ETAY, ETAT 

* I AX I 
IBASE, ISTEP 

* IEULER 
ISWEEP 

* ISWIRL 

* ITHIN 
IV 

II, 12 

JI 

METX, METY, METT 
MU, LA, KT 

NEN 

NEQ 

NPTS 

NR, NRU, NRV, NRW, NET 

NVD, NPTSD 

P, T 
PRR 
RAX 

* RER 


Computational grid spacing in sweep direction. 

Derivatives dpi dp, dpjd(pu), dpld(pv), dpld(pw), and SpjdEr- 

Time step At. 

Derivatives dTjdp, dTjd{pu), dTld(pv), dT\d{pw), and dT/dEr- 

Computational grid spacing A£ and A rj. 

Metric coefficients rj x , rj y (or r; r if axisymmetric), and >j f . 

Flag for axisymmetric flow. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Flag for Euler calculation. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Flags for thin-layer option. 

Index in the "vectorized” direction, i„. 

Grid indices i and j, in the <* and rj directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J' 1 
(times the radius r for axisymmetric flow.) 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y (or r if axisymmetric), and t. 

Effective coefficient of viscosity p, effective second coefficient of 
viscosity X, and effective coefficient of thermal conductivity k at 
time level n. 

Array index associated with the energy equation. 

Number of coupled equations being solved, N tq . 

Number of grid points in the sweep direction, N. 

Array indices associated with the dependent variables p, pu, pv, 
pw, and E r - 

Leading two dimensions for the arrays A, B, C, S, METX, 
METY, and METT. 

Static pressure p and temperature T at time level n. 

Reference Prandtl number Pr r . 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. 

Reference Reynolds number Re r . 
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RHO, U, V, W, ET 
♦ THE 
TL 

UL, VL, WL, ETL 

XIX, XIY, XIT 
Y 


Static density p, velocities w, v, and w, and total energy Ej at time 
level n. 

Parameters 9 U 0 2 , and 0 3 determining type of time differencing for 
the energy equation. 

Static temperature T from previous ADI sweep. 

Velocities u, v, and w, and total energy E r from previous ADI 
sweep. 

Metric coefficients ( x , € y (or £ r if axi symmetric) , and 
Radial coordinate r for axisymmetric flow'. 


Output 

A, B, C 
S 


Coefficient submatrices A, B, and C at interior points (row NEN 
only). 

Source term subvector S at interior points (element NEN only). 


Description 

Subroutine COEFE computes the coefficients and source term for the energy equation Equations 
(7.5a-b) in Volume 1 represent, in vector form, the four governing difference equations for the two ADI 

sweeps for 2-D planar flow. The elements of the inviscid flux vectors E and F are given in Section 2.0 of 

Volume 1, and the elements of the viscous flux vectors Ey v Ey 2 , etc., are given in Appendix A of Volume 

1 The Jacobian coefficient matrices dEjdQ, dt v JdQ, etc., are given in Section 4 0 of Volume 1. . Using 
all of these equations, the differenced form of the energy equation for 2-D planar flow may be wntten o 

the two ADI sweeps as 


Sweep 1 (£ direction) 


0, At 


A(£r)i + (i + e 2 )2Ac, 


A 

5E 4 


5Q 


A* 

AQ i+ ,- 


aE 4 

A 

dQ 


A Q/- 1 


1 


/- 1 


0 iAt 


[ui _ , + f t ) V- 1 aq*_ , - {ft - , + Vi +A + ovaq; + (n + /i + i)V+ 1 a q*+ 


(1 + 0 2 )2(A?) 

At u £. ^ * fc .y a. -**— [<5,(E l / i ) 4 + 


1 0*) 


(^E 4 + <5/ 4 )" + 


1 + $9 


+ + T+e 


■A El 
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Sweep 2 (>7 direction) 


A #iAT 

A{Er)j + (1 +6» 2 )2A>7 
0,At 


A 

gF 4 

A 

<?Q 


aq; + , - 


A 

5F 4 

A 

5Q 


A 

A Q/-i 


A, 

AE 


(i +e 2 )2(Ay 1 y 

* 

T 


j + \ ' ' y-i 

[u$ - 1 + )' V- 1 A 9/”- 1 - (fj - 1 + 2// +fj + 1) V A 9/” + (J5 ■ + fj + 1) v+ 1 A Qy+ 1] 


In the above equations, the subscripts i and j represent grid point indices in the £ and rj directions. For 
notational convenience, terms without an explicitly written i or j subscript are understood to be at / or j. 

On the left hand side, / is the coefficient of djd £ (or djdrj, depending on the sweep) in the 5E vJdQ (or 
dt v JdQ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses following d/d£ (or d/dr}) 

A A A A 

in the dEyJdQ (or dF v JdQ) Jacobian coefficient matrix. 


The vector of dependent variables is 


Q = y[p P u pv E-ff 

The appropriate elements of the inviscid flux vectors are given by 

E 4 = - J 1(E T +P)uZ : c + (E-r + p)v£y + E t f ,] 

F 4 = y [(£ 7 - + P) M Ix + ( e t + P) vt iy + Ernd 
The appropriate elements of the non-cross derivative viscous flux vectors are 

( Ep 1 ) 4=y^- { - (2 - 2 + -~ + Z 2 y(v\] + O' + Wxtyi^k 

+ -j [& 2 k + + ~£~ (£ + #r { } 

(ri,) 4 = Y~Re~ r { {2>1 "2 ^ + ’'fr 2 ) J + ^ + 

+ y hl(v\ + y( w \] + y~ fa* + 

And the appropriate elements of the cross derivative viscous flux vectors are 

a 1 1 r 

(Ef/ 2 ) 4 = y I MZx’lxWr, + iyVy^n) + + »f>%) + Kyi* lx vu r, + VV 

k 

+ PZx(ly vu r, + Vx^r,) + rfyilyWr, + Vx^r,) + ~pT ^xlx + Zy*1y) T v 
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(F v 2 )a 


J 

J Re r 


+ yjy^yW^) + ktj x (^wu ? + ^«vj) + ^y(i x vu ' + ?y w f) 

fc 

+ M x { iyVU^ + £ x Wf.) + MyiZyU ^ + ^ Mv {) + ~frT kxk + ^y) T l 


The elements of the Jacobian coefficient matrix dEjdQ for the inviscid terms in the energy equation are 




( dp 

1 + ~dEk 


vhere f = ui, x + v£ y and f 2 = (E T + p)lp- 


The elements of the Jacobian coefficient matrix dE v JdQ for the viscous terms are 



where 



a xx =(2 f x + W x 2 + rf y 2 
a yy = pi 2 + ( 2 m + IK? 


a xy = (M + IHxZy 

«o = ^r(^ 2 + ^ 2 ) 

The Jacobian coefficient matrices dF^jdQ and S(Fki) 4/<5Q have the same form as oFUjcQ and <?(Et^)4/3Q, 
but with q replaced by >7. 

As an example of how these equations are translated into Fortran, consider the A(pujJ) term on the left 

hand side for the first sweep. This is the second element of Q, so using the second element in <?E,/< 3 Q we 
get for the inviscid term 
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A(IV,I,NEN,NRU) = - 


(At) u 
(1 +6 2 )2Ai 


) +[< 

V 7 i - 1 , /' L 


(“£* + v ^v) 


d(p«) 


■ J < — i.yj 


B(IV,I,NEN,NRU) = 0 


C(IV,I,NEN,NRU) = 


(i + e 2 )2^ 


(^) +[ 

. 7 i+lJ L 


+ v «y) 


dp 


d(pw) 


-'i+UJ 


For the viscous terms on the left hand side, we use the second element in d(E Vl )^jdQ, which is 

1 _d_/_w_\ , _d_/_L\o. _d_ ( dT \ 

Pe r |_ ajcx V p ) + a *y ai V p ) + a ° di \ ao»«) / 

There are three terms in that element. Thus, in tum,/= a xx f Re r , a xy /Re r , and a 0 ; R e, and g = ujp, vjp, and 
dTld(pu). To add the viscous contribution to this part of the A coefficient submatrix, we therefore set 


A(IV,I,NEN,NRU) = A(IV,I,NEN,NRU) - 


*,(At hj 


(1 + d 2 )2(A Z) l Re r 

|[(“xx)(- 1,7 + ( a xx)i,y]( 7T ) t .+ [( a xy)i- l,y + ( a xy)/,y]( 7T ). | . + [( a o)i - 1 ,j + ( a o)ij3^ 15{pu) ) 

Similar equations may be written for the B and C coefficient submatrices. 

The equations for axisymmetric flow are developed in Appendix B of Volume 1. The axisymmetric 
energy equation for the two ADI sweeps is given by 19 

Sweep 1 (£ direction) 

0,At ] 


A(£ r ), + 


( 1 +^) 2 A? r 

i 


d£ s 

V •• 


r — — 

A Q. + > 


5Q , 


V /, 

n-ifi- 

i + rjfg*- 

i 4 Q,'-r( r ,- 


- TT*7 7- 0<< r **> + W W + T+^7 T K r <E^)s] + tv?s]} n 

+ 0±^1 ± (<5 { [r (E Kj ) 5 ] + «5,[r (F^]}" - ± {<5 { [r (E^] + *J7 (F^]}" “ 1 + A t r ~ 1 


Sweep 2 (>7 direction) 


a 0, At 1 

A( ^ + (TtW^ 

1 


3F 5 \ / 3Fs , 

r— AQ- + 1 - r— AQ . 

3Q / V / 

7 / + l v ' j - 1 


(i + 0 2 )2(A>r) 


F [fry i A< 5; n - 1 - fry- |J5 - 1 + 2 0/y + r j + ifj+ . )V A 0; + fryJj- + + ./; + A"* >4Q; + ,] = 


A£ t 


19 These equations are written for the general case with swirl. For a non-swirl case* the swirl momentum pw w r ould 
not appear as a dependent variable, and the Jacobian coefficient matrices would have only four elements. 


Proteus 2-D Programmer's Reference 


4.0 Proteus Subprograms: COEFE 147 



where now 


Q = 


y[p pw pv pw £ r ] 


T 


e 5 = 7 C(E r + pK + (E t + pMr + EtQ 

F s = 7 L(E r + p)u*t x + (£7 + p)v»7 r + E T t ;,] 

(E F) ) 5 = 7-^- I + g(v\] + (p + + 

+ Y [^(v 2 + w 2 ), + ^(« 2 + w 2 )j] + -^-(d+ i?)^} 

(F>,)5 =777 I (2A *Y - X - [>&«\ + ^( v \] + (P + 'OWrM,, + >.r, r -y- (V 2 + >? X «V) 

+ y [n 2 ( v2 + + »??(« 2 + vv,2 ) >7 ] + -j^r ini + 'b) 7 ^ 


(E y 2 ) 5 = 7 77 j^2pi(7>7x^ + irnr^r,) + Kjfajm, + nr%) + ^rObc*", + »7r w »,) + 7- (£x w + Zr v ) r T, 

2 

+ n£ x {ri r VU n + tl x W n + tj x WW v ) + M? r (>)r w S + nx w r, + »/r^) “ 

+ - 7 - + £r*lr)^»jJ 

(Fp 2 )s = 7 77 + AnjctfjcUUf + f^V { ) + ^(^Uj + ^r w f) + ^V7 ( ^+VK; 

2 

+ /OJ x (£ r VUj + ^Wj + £ X WW { ) + W r {Z r UU, + fjOTj + &HW { ) - mr - 7^ 

+■^(4+1^] 

The elements of the Jacobian coefficient matrix <3E/cQ for the inviscid terms in the axisymmetric form 
of the energy- equation are 


5E S 

A 

dQ 



fi^x + A 


d(pu) 


flir +/l 


dp 

d(pv) 


/. 


dp 

d(pw) 


fr+/i 1 + 


dp 

dE r 


where f\ = + v£, and f 2 = (E T + p)lp - 


A A 

The elements of the Jacobian coefficient matrix dE^/dQ for the viscous terms are 



where 
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51 


A 

9Ei 


dQ 


dE t 


dQ 


= (t" ) " a " 8Z ( p ) *“ di{ W p) 

= «xx^ (t) + a xr-§£ (y) + < T r s + a °~dz( d(pu) ) 


dEt 


dQ 


52 


= “xr -§£-(-%-) + «rr ^ ( p ) + <r p r { + a 'rr p r l + «0 ^ ( 5 (pv) ) 


53 


3El 


5Q 


_ 5 / w \ d / dT_ \ 

“ a » a£ \ p ) + a ° a? v a (p w ) / 


54 


<x xx = (2 m + AK jc 2 + m^ 2 

«„ = pZx + (2/i + A)^ 2 

« 22 = nZ x + 

a xr “ (M 

«' X r=T^r 

, X ,2 

a rr = — Zr 


«o = -£r(.Z x +tr 2 ) 

As in 2-D planar flow, the Jacobian coefficient matrices dFs/dQ and d(F vJs/dQ have the same form as 
dEs/dQ and 5(Evi)i/dQ, but with Z replaced by rj. 

Note that the equations for 2-D planar and axisymmetric flow are very similar. In the axisymmetric 
equations there are some additional terms involving the radius r in the viscous flux vectors, with corre- 
sponding terms in the Jacobian coefficient matrices. The radius r appears as an additional coefficient in 

front of the flux vectors E, Ey,, etc., and in front of the Jacobian coefficient matrices 3E</3Q, 5(E n ) 5 /5Q, 

etc. In addition, 1 jr appears in front of every term in the equation except the A E r terms. In Proteus, the 
Fortran variables are defined in such a way that, for many terms, the same coding can be used for both 2-D 
planar and axisymmetric flow. Unfortunately, this may make some of the coding a little confusing. It is 
hoped that this detailed description, when compared with the source listing, will help make things clear. 

In COEFE, the coefficients of the left hand side, or implicit, terms are defined first. The implicit terms 
for the second ADI sweep have exactly the same form as for the first sweep, but with Z replaced by rj. By- 
defining DEL, METX, METY, and METT as the grid spacing and metric coefficients in the sweep direc- 
tion, the same coding can be used for both sweeps. The variable RAX is equal to 1 for 2-D planar flow, 
and the radius r for axisymmetric flow. This adds the r in front of the Jacobian coefficient matrices for 
axisymmetric flow, but has no effect for 2-D planar flow. The 1 \r coefficient in front of each term will be 
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added later. In this section of code, the coefficient of A £> (part of B(IV,I,NEN,NET)) is set equal to r, not 
1 as it should be. This will be corrected later. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms. These formulas are presented 
in Section 5.0 of Volume 1. For axisymmetric flow, the Fortran variable JI, which is normally defined as 
i/y, is temporarily redefmed as r\J before the COEF routines are called. This automatically accounts for 
the r coefficient in front of all the flux vectors in the source tenn. The 1 \r coefficient in front of each term 

will be added later. This definition of JI adds an r in front of the A 1 term that should not be there. 
This will also be corrected later. 

A 

The coding for the source term for the second sweep, which consists only of A Ej, comes next. The 
definition of JI also adds an r in front of this term that should not be there. 

And finally, for axisymmetric flow, the entire equation is divided by the local radius r. This adds the 

A 

1 jr coefficient where it should be added, and removes the r in front of the A Et terms. 

Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sweep (i.e., "vectorized") direction, and the second subscript is the index in the sweep 
direction. For sections of the code that apply to both sweeps (i.e., the implicit terms and the division 
by r at the end), the first two subscripts are written as (IV, I). For sections of the code that apply only 
to the first sweep, the first two subscripts are written as (12,11). For sections that apply only to the 
second sweep, they are written as (11,12). The third subscript on A, B, C, and S corresponds to the 
equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for which 
A, B, or C is a coefficient. 

3. The coding of the extra coefficients and source terms in the axisymmetric form of the equations is 
separate from the rest of the coding, and is bypassed if the flow is not axisymmetric. Similarly, the 
coding of coefficients and source terms involving the swirl velocity is separate from the rest of the cod- 
ing, and is bypassed if there is no swirl. 

4. The Euler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous and heat conduction terms. 

5. The thin-layer option is implemented by skipping the calculation of the coefficients and source terms 
for the viscous and heat conduction terms containing derivatives in the specified direction. 
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Subroutine COEFS1 (A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

EXECT 


Compute coefficients and source terms for the k and t equations for 
the first ADI sweep. 


Input 


* 

CMUR 

Constant C Ur in formula for C M . 

* 

CTHREE 

Constant Q in formula for C„. 

* 

CTWOR 

Constant C 2r in formula for C 2 . 


DTAU 

Time step At. 


DUMMY 

Distance to the nearest solid wall. 


DX1, DETA 

Computational grid spacing A£ and A rj. 


E, EL 

Turbulent dissipation rate £ at time levels n and n - 1 . 


ETAX, ETAY 

Metric coefficients y\ x and rj y (or r\ r if axisymmetric). 

* 

I AX I 

Flag for axisymmetric flow. 


JI 

Inverse Jacobian of the nonorthogonal grid transformation, J* 1 . 


KE, KEL 

Turbulent kinetic energy k at time levels n and n — 1 - 


MU 

Laminar viscosity pi at time level n. 


MUT, MUTL 

Turbulent viscosity fx t at time levels n and rt — 1. 


NPTS 

Number of grid points in the sweep direction, N. 


NV 

Number of grid points in the "vectorized" direction, N v . 


NVD, NPTSD 

Leading two dimensions for the arrays A, B, C, and S. 

+ 

RER 

Reference Reynolds number Re r . 


RHO, U, V 

Static density p t and velocities u and v, at time level n. 


RHOL 

Static density p at time level n- 1. 

+ 

SIGE, SIGK 

Constants and a k used in the diffusion term of the s equation. 

* 

TFACT 

Factor used in computing the k-t time step. 

* 

THKE 

Parameters 0\ and 0 2 determining type of time differencing for the 
k-z equations. 


VORT 

Production rate of turbulent kinetic energy. 


XIX, XIY 

Metric coefficients and £ y (or if axisymmetric). 


Y 

Radial coordinate r for axisymmetric flow. 


YPLUSD 

Nondimensional distance from the nearest solid wall. 

Output 



A, B, C 

Coefficient submatrices A, B, and C at interior points. 


S 

Source term subvector S at interior points. 


Proteus 2-D Programmer's Reference 


4.0 Proteus Subprograms: COEFS1 151 




Description 


Subroutine COEFS1 computes the coefficients and source terms for the k-t equations for the first ADI 
sweep. Equation (9.40a) in Volume 1 represents, in vector form, the governing equation for the first ADI 
sweep for 2-D planar flow. This equation may be written in difference form as: 


1 — T^Z-n — T\Z |2 

\Zn 


1^11 

T ] Z 2 ] 1 — TyZ') 


A * 

AW, 


A W 0 


+ M(<y f 


mi 


0 A 


22 


AW, 


A , 

AW- 


— 


B u 0 ' 

0 B 22 


A . 

AW, 


A * 

AW, 


h 0{Fw - <5 f F V ‘ + ~ *) 

+ T 2 ( - (S u )^ c + 6 { T% + 6 ^ m - (S u ) v G n c + S„G n D + S&, + S n + T") + T 3 AW” " 1 


where 


T, = 


7 r. 


T,= 


0,At 
1 + 0 2 

At 

1 + 62 
02 

1+00 


In the above equation, Zu, etc., are elements of a matrix Z, defined as Z = M + A', and A, B, M , and ;V are 
the Jacobian coefficient matrices defined in equations (9.31), (9.32), (9.35), and (9.36) of Volume 1. Also, 
(S u )t is the first-order upwind difference operator used for the convective terms, and 5^ is the second-order 
central difference operator used for the viscous terms. 

The convective term on the left side can thus be expanded as: 



*22 I 


A W x 
A V/\ 


Af 


AW, 


Mn 0 1 

A w\ 

L 0 ^22 J 

aw 2 





L J 

A 

i 

L 

- 

] 

1 \A n 

0 1 

A W x 

1 

r- 

o 

+ 

L_ 

aw[ 

1 

Af L 0 

a 22 \ 

A W % 2 

l< 

1 

+ 

L o A 22 J 

A . 

A W 2 


if Z x u + s y v > 0 


if f x u + Z y v < 0 


In the above equations, and in those to follow, the subscripts i and j represent grid point indices in the q 
and v] directions. For notational convenience, terms without an explicitly written i or j subscript are un- 
derstood to be at i or j. 


The Jacobian coefficient matrix B may be written as: 


B = 


11 ) 

0 


0 

•&«22). 


The viscous term on the left hand side may thus be expanded as: 
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r*n 0 1 
L 0 5 22J 


A * 

A IF, 

A * 

AW, 


2(Ac ) 2 


1 ( 11 ) 0 
0 w- 1 +Jv 8 i- 1(22) 


AW'j 

A « 

APF 0 


/- l 


(fi+ 1 “f 2 fi ^ fi — lte(i 1) 

0 1 

A * 

A IF, 

0 

(fi+l + 2 fi+fi- l)<?i(22)J 

A, 

aif 2 


+ 


r«+J! + iift + i(ii) f ° ] 

[ 0 Vi + Ji+ \)£i+ 1(22) J 


A * 

A W } 

A * 

A W, 


/+ r 


On the right hand side, the convective term (<5 U )^F C is differenced as: 

_ J~i 7 - ( F c)i - l] if £jc u + £y v > 0 

(Wc-^ 1 pA A 

~£T L( F c)/ + i ~ (F C )iJ + V < 0 

An analogous expression may be written for (S U \G C . The vectors F^> and F M may be written as 


F D = 


f m = 


fSl(\) 

tem. 

fgrj(\) 

f g r,Q). 


The terms and <5 { F m are thus differenced as: 
1 


< *t*D = - 


S i F M = ' 


2(A*r 

i 


(fi- i i(i) 

fi- 1 +fi)Si- 1 ( 2 ) 


( fi+ 1 + 2 fi+f- lk/(i) 
( fi+ 1 + 2 fi+fi-\)giQ.) 


+ 


(fi+fi+ l)<?; + 1(1) 
ifi+fi+ 1 )Si+ 1 ( 2 ) 


fi + \,Mi+ l,y' + 1 Si+ 1J- l)(l) 
fi+ 1 ,/&+ 1 , 7 + 1 ~ & + 1 ,y — 1 )( 2 ) 


4A^A>7 

Analogous expressions may be written for <5„Gz> and S.G M . 


fi- 1 , 7 ^ — 1,7+ 1 1,7— i)(l) 

A- 1 , 7 ^ 1 - 1 , 7 + \ ~Si- \,j— i )( 2 ) 


The k-t equations for axisymmetric flow are presented in Appendix B of Volume 1 . They may be 
written in difference form for the first ADI sweep as: 


1 — T : Z U — T x Z n 
~ ^ 1^21 1 — ^ 1^22 


A IF, 


AW, 


+ 




A , 

A IF, 

A * 

A IF, 


— S 



A IF, 


A IF, 


~r~ (v** - 1 + sj&m - *f&tr ’) 

T A 

+ ~r(- (^)^Fc + s wF" d + S^rF'lf - (S^rGc + 8j£ n D + 6fG*„ + rS n + rT") + T 3 AVV” " 1 
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where r is the radial coordinate and all other terms are the same as the 2-D planar equations presented 
above. 

Remarks 

1 For the variables A, B, C, and S, the first subscript is the index in the non- sweep (i.e., "vectorized") 
direction, and the second subscript is the index in the sweep direction Since this subroutine ordy ap- 
plies to the first sweep, the first two subscnpts of A, B, C, and S variables^ are written i as (J,iy The hir 
subscript on A, B, C, and S corresponds to the equation. J^id, for A, B, and C, the fourth subscnpt 
corresponds to the dependent variable for which A, B, or C is a coefficient. 

2 For axisymmetric flows, the Fortran variables RIJ, RIP1J, and RIM1J are the cylindrical r coordinates 
for the md points (I,J), (I + U), and (I - 1,J), respectively. Similarly, RIJP1 and RIJM1 are the cy- 
lindncafr coordinates for the grid points (I,J + 1) and (U - D- For 2-D flows, all of these variables 
are set equal to 1.0. 
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Subroutine COEFS2 (A,B,C,S,NVD,NPTSD) 

Called by 

Calls 

Purpose 

EXECT 


Compute coefficients and source terms for the k and e equations for 
the second ADI sweep. 


Input 


DETA 

Computational grid spacing A rj. 

DTAU 

Time step Ax. 

E, EL 

Turbulent dissipation rate t at time levels n and n — 1 . 

ETAX, ETAY 

Metric coefficients rj x and rj y (or r\ T if axisymmetric). 

* I AX I 

Flag for axisymmetric flow. 

JI 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 

KE, KEL 

Turbulent kinetic energy k at time levels n and n— 1. 

MU 

Laminar viscosity fi t at time level n. 

MUT 

Turbulent viscosity at time level n. 

NPTS 

Number of grid points in the sweep direction, N. 

NV 

Number of grid points in the "vectorized" direction, N v . 

NVD, NPTSD 

Leading two dimensions for the arrays A, B, C, and S. 

* RER 

Reference Reynolds number Re r . 

RHO, U, V 

Static density p, and velocities u and v, at time level n. 

RHOL 

Static density p at time level n — L 

S 

Computed solution subvector from first sweep. 

♦ SIGE, SIGK 

Constants o t and c k used in the diffusion term of the t equation. 

* TFACT 

Factor used in computing the k-t time step. 

* THKE 

Parameters 8\ and 0 2 determining type of time differencing for the 
k-t equations. 

Y 

Radial coordinate r for axisymmetric flow 7 . 

Output 


A, B, C 

Coefficient submatrices A, B, and C at interior points. 

S 

Source term subvector S at interior points. 

Description 



Subroutine COEFS2 computes the coefficients and source terms for the k-t equations for the second 
ADI sweep. Equation (9.40b) in Volume 1 represents, in vector form, the governing equation for the sec- 
ond ADI sweep for 2-D planar flow. This equation may be written in difference form as: 
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where 


r 

1 i + e 2 

In the above equation C and D are the Jacobian coefficient matrices defined in equations (9.33) and (934) 
of Volume 1. Also, ( 5 U \ is the first-order upwind difference operator used for the convective terms, and <5, 
is the second-order central difference operator used for the viscous terms. 


The convective term on the left side can thus be expanded as: 
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if t} x u + rf v > 0 


if rj x u + rj y v<0 


In the above equations, and in those to follow, the subscripts i and j represent grid point indices in the 
and y] directions. For notational convenience, terms without an explicitly written i or j subscript are un- 
derstood to be at i or j. 

The Jacobian coefficient matrix D may be written as: 

D= |^( n ) ® 

0 -&|(22>J 


The viscous term on the left hand side may thus be expanded as: 
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The k-z equations for axisymmetric flow are presented in Appendix B of Volume 1. They may be 
written in difference form for the second ADI sweep as: 
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where r is the radial coordinate and all other terms are the same as the 2-D planar equations presented 
above. 


Remarks 

1. For the variables A, B, C, and S, the first subscript is the index in the non-sweep (i.e., "vectorized") 
direction, and the second subscript is the index in the sweep direction. Since this subroutine only ap- 
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plies to the second sweep, the first two subscripts of A, B, C, and S variables are written as (I,J). The 
third subscript on A, B, C, and S corresponds to the equation. And, for A, B, and C, the fourth sub- 
script corresponds to the dependent variable for which A, B, or C is a coefficient. 

2. For axisymmetric flows, the Fortran variables RIJ, RIJP1, and RIJM1 are the cylindrical r coordinates 
for the grid points (I,J), (I,J + 1), and (I,J - 1), respectively. For 2-D flows, these variables are set equal 
to 1.0. 
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Subroutine COEFX (A,B,C,S,METX,METY,METT,NVD,NPTSD) 


Called by 

Calls 

Purpose 

EXEC 


Compute coefficients and source term for the x-momentum equation. 


* RER 

RHO, U, V 
RHOL, UL, VL 


Computational grid spacing in sweep direction. 

Derivatives dpjdp, dpld(pu), dpld(pv), dpjd(pw ), and dpldE T - 

Time step At. 

Computational grid spacing A£ and A rj. 

Metric coefficients rj x , r\ y (or r\ T if axisymmetric), and rj t . 

Flag for axisymmetric flow. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Flag for Euler calculation. 

Flag for constant stagnation enthalpy option. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Flags for thin-layer option. 

Index in the "vectorized" direction, i v . 

Grid indices i and j, in the £ and r\ directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ ] 
(times the radius r for axisymmetric flow.) 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y (or r if axisymmetric), and t. 

Effective coefficient of viscosity p and effective second coefficient 
of viscosity X at time level n. 

Number of coupled equations being solved, N eq . 

Number of grid points in the sweep direction, A. 

Array indices associated with the dependent variables p, pw, pv, 
pw, and Et - 

Leading two dimensions for the arrays A, B, C, S, METX, 
METY, and METT. 

Array index associated with the x-momentum equation. 

Static pressure p at time level n. 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. 

Reference Reynolds number Re r . 

Static density p, and velocities u and v at time level n. 

Static density p, and velocities u and v from previous ADI sw^eep. 
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* THX 

XIX, XIY, XIT 
Y 

Output 

A, B, C 

S 

Description 


Parameters 9 it 0 2f and 0 3 determining type of time differencing for 
the x-momentum equation. 

Metric coefficients £ z , (or £ r if axisymmetric), and 
Radial coordinate r for axisymmetric flow. 


Coefficient submatrices A, B, and C at interior points (row 
NXM only). 

Source term subvector S at interior points (element NXM only). 


Subroutine COEFX computes the coefficients and source term for the x-momentum equation. 
Equations (7.5a-b) in Volume 1 represent, in vector form, the four governing difference equations for the 

two ADI sweeps for 2-D planar flow. The elements of the inviscid flux vectors E and F are given in Section 

A A 

2.0 of Volume 1, and the elements of the viscous flux vectors E^, Ek 2 , etc., are given in Appendix A of 

AAA A 

Volume 1. The Jacobian coefficient matrices dE/dQ, dE Vl /dQ, etc., are given in Section 4.0 of Volume 1. 
Using all of these equations, the differenced form of the x-momentum equation for 2-D planar flow may 
be written for the two ADI sweeps as 20 


Sweep 1 (£ direction) 


A * 0]At 

A (P“)/ + 


(1 + 0 2 )2A£ 
At 


d&2 

A 

dQ 


a * / dEs) \ A * 

A Q/+1“( -7T ) AQ/-1 


1+ 1 


A 

dQ 


i- 1 


„ [«- 1 + VDV- i 4 Ql- , - W- 1 + V: +J? + ,)ViQj + a + f l + ,)V+ ,aq; + ,] 

(1 + 0 2 )2(A£) 

t fs; + + irisr [ W2 + W J 

(1 + 8j)4t [<5 j(E^ 2 + tyn-yj - [‘fab + ‘JTrbf ' ' + T TT ' 1 


1 + 0, 


Sweep 2 (*i direction) 
A „ 0 -,At 

0, At 


0F 2 

A 

0Q 


An" / aF 2 

A 9/+i _ I — 

0Q 


A Art 

A Q/-i 


(1+0 2 )2(A>,) 2 


j + 1 ' ' j—\ 

\s/i - 1 + fj) Sj- 1 A 9/- 1 _ - 1 + +^ + l) AQy + (7/ + _^ + j) gj + jAQy + i] 


A(pu) 


20 These equations are written assuming the energy equation is being solved. For a constant stagnation enthalpy case, 
the total energy Ej would not appear as a dependent variable, and the Jacobian coefficient matrices would have 
only three elements. 
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In the above equations, the subscripts i and j represent grid point indices in the £ and r, directions. For 
notational convenience, terms without an explicitly written i or j subscnpt are understood to be at i ^ or j. 

On the left hand side, / is the coefficient of d/dt (or djdrj, depending on the sweep) in the dEyJSQ (or 
dFvJdQ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses following d /3£ (or djd*j) 
in the dtvJdQ (or dFyJdQ) Jacobian coefficient matrix. 

The vector of dependent variables is 

Q = -j[p pu pv E t ~\ T 

The appropriate elements of the inviscid flux vectors are given by 

E2 = -j [(pu 2 + p)Z x + puv£ y + pui t ~] 

F 2 = - j [(pu 2 + p)n x + P^y + 

The appropriate elements of the non-cross derivative viscous flux vectors are 

(E^ = y-^-[ 2 '41&1 + KJ.SjPt + W + fiiJSyUf + {jcVj)] 

(ri,) 2 — J -J^ r + VV + + *» A>] 

And the appropriate elements of the cross derivative viscous flux vectors are 

(E„ 2 ) 2 = j [2 Mjflju,, + KAhH, + V-?) + rfyh/ 1 * + 

(F v 2 ) 2 = -J [2pyxZx u Z + 2t 1x(£x u Z + + PVydyU^ + ^)] 

The elements of the Jacobian coefficient matrix 3E/5Q for the inviscid terms in the x-momentum 
equation are 


dF^ 


dp_ 

dp 


dp dp dp , 

Zx~ u f\ i»+/l + “?x + -g^^x u Zy + ~d(^v)Z x 


8Q 

where f\ = wc* + v^. 

A A 

The elements of the Jacobian coefficient matrix dEvJdQ for the viscous terms are 


d(Fy)2 1 


A Re 

SQ r 


dE t 


d Q 


”“■*(£) “A(^) 0 


21 


where 


&v x 

A 

5Q 




(n-«^(f) 


21 
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a xx - ( 2 M + Wx + vZy 
a xy = (M + 

A A A A A A A A 

The Jacobian coefficient matrices 5F 2 /5Q and d(F Vl ) 2 ldQ have the same form as dE 2 /<9Q and 5(E n )2 /3Q, 
but with £ replaced by rj. 

As an example of how these equations are translated into Fortran, consider the A (pu/J) term on the left 

A A A 

hand side for the first sweep. This is the second element of Q, so using the second element in 3E 2 /dQ, and 
including the A (pu)* term, we get for the in viscid term 

({/)/ - 1 j+ (“tx + *e y )i ~ i j + (“£x)i -ij+( «x) 

' i — 1 J_ 

B(IV,I,NXM,NRU) = 1 

(ir)/ + 1.7 + «c + *ty)i +1.7 + (“Wi + i .7 + ( 0 

' 'i + 1 ,7_ 


C(IV,I,NXM,NRU) = 


0,(Ar) i - ; 
(1 +0 2 )2A£ 


Ol(AT) it y 

A(IV,I,NXM,NRU) = — {l + 9 ^ 


For the viscous terms on the left hand side, we use the second element in c^E^/dQ, which is 

T^ axx ~k(~p) 

Thus / = a xx /Re r and g = 1/p. To add the viscous contribution to this part of the A coefficient submatrix, 
we therefore set 

A(IV,I,NXM,NRU) = A(IV,I,NXM,NRU) - —r [(«„), _ i ; + (O/jlf T ) 

(l+0 2 )2(A £) 2 Re r VP/ i-l.7 

Similar equations may be written for the B and C coefficient submatrices. 

The equations for axisymmetric flow are developed in Appendix B of Volume 1. The axisymmetric 
x-momentum equation for the two ADI sweeps is given by 21 

Sweep 1 (£ direction) 


&(p u )i + 
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(1 + e 2 )l^ r 
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[6 { (rE 2 ) + d,(rF 2 )]"- 
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1 + 0 , 


Fl4M+ 4 I r(F ^i]l" 


1 + 0 , 


f [ 6 l r + y 2 h] + 6 ,[ r +^]} n " T^r t {«<[' <Ek 2 ) 2 ] + ( f, 2 ) 2 ]}» - ' + -^2- a(pV - 1 


21 These equations are written for the general case with swirl. For a non-swirl case, the swirl momentum pw would 
not appear as a dependent variable, and the Jacobian coefficient matrices would have only four elements. 


Proteus 2-D Programmer's Reference 


4.0 Proteus Subprograms: COEFX 161 



Sweep 2 (rj direction) 


a n #(A? 1 

A ^>" + o Tm *~ 

e,A7 

(1 + 9 2 ) 2 (\r ,) 2 
A (pi/)" 

where now 


5Q 
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F 2 = y [( pu 2 + p)jj x + puvrj r + 


(F|/j )2 = 

1 

= J 

1 

Re r 


+ ; -£x[^ + • 

7 Wrv) { ] + MW^ + ^v { )} 

(Fv t h - 

1 

” J 

1 

Re r 


+ 2 > 7x[»7^ + 

T f ?r( n '), 7 ] + + r lx v t,)} 

(Ff/ 2 )2 = 

1 

J ' 

M 

2 P^»?xW 

>7 "b "f 

- 7- »7r(' v )^] + + »?x v ,,)} 

II 

1 

J ' 

M 

2 pn x Zx u 

f | + 2f 7j:^jcW| •+ 

’ 7- j 


A A 

The elements of the Jacobian coefficient matrix 5E/<9Q for the inviscid terms in the axisymmetnc form 
of the energy equation are 


SE2 


dQ L 


do ■ dp dp 

~TT^x~ u f\ ^t Jr f\ JrU ^x Jt a / ..a w£ r + — %x 


d P . dp 

ar 


dp -x --/l w - 71 • -x ' 5(pw) -X »>r ■ 5(pV ) *x 5(pW ) *x dEr 

where f\ = u£ x + v£ r . 

f\ A 

The elements of the Jacobian coefficient matrix dEvJdQ for the viscous terms are 
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*xr = (/* + ?-K x Zr 
«xr 4«r 

A A A A 

As in 2-D planar flow, the Jacobian coefficient matrices <3F 2 /3Q and have the same form as 

A A A A 

<?E 2 /<?Q and <?(Eki) 2/<3Q, but with £ replaced by */. 

Note that the equations for 2-D planar and axisymmetric flow are very similar. In the axisymmetric 
equations there are some additional terms involving the radius r in the viscous flux vectors, with corre- 
sponding terms in the Jacobian coefficient matrices. The radius r appears as an additional coefficient in 

front of the flux vectors E, Ep,, etc., and in front of the Jacobian coefficient matrices dE 2 /5Q, d(E^) 2 /SQ, 
etc. In addition, 1 \r appears in front of every term in the equation except the A (pu) terms. In Proteus , the 
Fortran variables are defined in such a way that, for many terms, the same coding can be used for both 2-D 
planar and axisymmetric flow. Unfortunately, this may make some of the coding a little confusing. It is 
hoped that this detailed description, when compared with the source listing, will help make things clear. 

In COEFX, the coefficients of the left hand side, or implicit, terms are defined first. The implicit terms 
for the second ADI sweep have exactly the same form as for the first sweep, but with f replaced by rj. By 
defining DEL, METX, METY, and METT as the grid spacing and metric coefficients in the sweep direc- 
tion, the same coding can be used for both sweeps. The variable RAX is equal to 1 for 2-D planar flow, 
and the radius r for axisymmetric flow. This adds the r in front of the Jacobian coefficient matrices for 
axisymmetric flow, but has no effect for 2-D planar flow. The 1 jr coefficient in front of each term will be 
added later. In this section of code, the coefficient of A (pu) (part of B(IV,I,NXM,NRU)) is set equal to r, 
not 1 as it should be. This will be corrected later. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms. These formulas are presented 
in Section 5.0 of Volume 1. For axisymmetric flow, the Fortran variable JI, which is normally defined as 
II J, is temporarily redefined as rjj before the COEF routines axe called. This automatically accounts for 
the r coefficient in front of all the flux vectors in the source term. The 1 jr coefficient in front of each term 
will be added later. This definition of JI adds an r in front of the A(pu) n ~ l term that should not be there. 
This will also be corrected later. 

The coding for the source term for the second sweep, which consists only of A (pu)* , comes next. The 
definition of JI also adds an r in front of this term that should not be there. 

And finally, for axisymmetric flow, the entire equation is divided by the local radius r. This adds the 
Ijr coefficient where it should be added, and removes the r in front of the A (pu) terms. 

Remarks 

1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sweep (i.e., "vectorized") direction, and the second subscript is the index in the sweep 
direction. For sections of the code that apply to both sweeps (i.e., the implicit terms and the division 
by r at the end), the first two subscripts are written as (IV, I). For sections of the code that apply only 
to the first sweep, the first two subscripts are written as (12,11). For sections that apply only to the 
second sw^eep, they are written as (11,12). The third subscript on A, B, C, and S corresponds to the 
equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for which 
A, B, or C is a coefficient. 

3. The coding of the extra coefficients and source terms in the axisymmetric form of the equations is 
separate from the rest of the coding, and is bypassed if the flow is not axisymmetric. Similarly, the 
coding of coefficients and source terms involving the swirl velocity is separate from the rest of the cod- 
ing, and is bypassed if there is no swirl. 

4. The Euler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous terms. 
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5. The thin-layer option is implemented by skipping the calculation of the coefficients and source terms 
for the viscous terms containing derivatives in the specified direction. 
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Subroutine COEFY (A,B,C,S,METX,METY,METT,NVD,NPTSD) 


Called by Calls Purpose 

EXEC Compute coefficients and source term for they or r-momentum 

equation. 


Computational grid spacing in sweep direction. 

Derivatives dp\dp, dp/d(pu) t dpfd(pv), dpjd(pw), and dpjdE r . 

Time step At. 

Computational grid spacing A£ and A tj. 

Metric coefficients rj xi rj y (or r\ r if axisymmetric), and rj ( . 

Flag for axisymmetric flow. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Flag for Euler calculation. 

Flag for constant stagnation enthalpy option. 

Current ADI sweep number. 

Flag for swirl in axisymmetric flow. 

Flags for thin-layer option. 

Index in the "vectorized" direction, i,. 

Grid indices i and j, in the £ and r\ directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J ~ 1 
(times the radius r for axisymmetric flow.) 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y (or r if axisymmetric), and t . 

Effective coefficient of viscosity p and effective second coefficient 
of viscosity X at time level n. 

Number of coupled equations being solved, N eq . 

Number of grid points in the sweep direction, N. 

Array indices associated with the dependent variables p, pw, pv, 
pw, and Et- 

Leading two dimensions for the arrays A, B, C, S, METX, 
METY, and METT. 

Array index associated with the y-momentum (or r-momentum if 
axisymmetric) equation. 

Static pressure p at time level n. 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. 

Reference Reynolds number Re r . 

Static density p, and velocities u , v, and w, at time level n . 
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RHOL, UL, VL 
♦ THY 

XIX, XIY, XIT 
Y 

Output 

A, B, C 

S 


Static density p, and velocities u and v from previous ADI sweep. 

Parameters 8\, 9 2 , and 0 3 determining type of time differencing for 
the y-momentum equation. 

Metric coefficients (or £ r if axisymmetric), and 
Radial coordinate r for axisymmetric flow. 


Coefficient submatrices A, B, and C at interior points (row 
NYM only). 

Source term subvector S at interior points (element NYM only). 


Description 

Subroutine COEFY computes the coefficients and source term for the ^--momentum equation for 2-D 
planar flow, or the r-momentum equation for axisymmetric flow. Equations (7.5a-b) in Volume 1 repre- 
sent, in vector form, the four governing difference equations for the two ADI sweeps for 2-D planar flow. 

A A 

The elements of the inviscid flux vectors E and F are given in Section 2.0 of Volume 1, and the elements 
of the viscous flux vectors Ei/„ Ek 2 , etc., are given in Appendix A of Volume 1. The Jacobian coefficient 

matrices 0E/5Q, dEvJdQ, etc., are given in Section 4.0 of Volume 1. Using all of these equations, the 
differenced form of the y-momentum equation for 2-D planar flow may be written for the two ADI sweeps 
as 22 

Sweep 1 (£ direction) 


. , A * 

A (py)i + 


0,At 

(1 + 0 2 )2A£ 




A * 

AQ, _ i 

1 


0i At 


(1 + 0 2 )2(A{) 

At / c T-' . c ^ » At 


[(A-1 + fi) n gi- ,AQ’_ , - (ft . , + 2f i+ f i+ ,)VAQ* + (fi + f i + i ) V + . i ] 


1+0^ 


(1 +0 3 )At 
1+09 


(<^ e 3 + *^ 2 )" + { + e [ S t(^v x h + trPvih]* 


0q At 


[<5^(Ep 2 )3 + S r,^v 2 h] n --j+[W3 + 


1/1-1 


+ ■ 


1+0 


2 A / A 1 

A (pv) 


22 These equations are written assuming the energy- equation is being solved. For a constant stagnation enthalpy case, 
the total energy Ej would not appear as a dependent variable, and the Jacobian coefficient matrices would have 
only three elements. 


166 4.0 Proteus Subprograms: COEFY 


Proteus 2-D Programmer's Reference 



Sweep 2 (n direction) 


A(p A v) 1 + 


'J (i+0 2 )2A n 

At 


gr 3 

A 

aQ 


A 

a q; + i - 


gF 3 

A 

5Q 


A 

aq;_ , 


&{pv) 


(l+0 2 )2(A r r 


A * 


y'+i ' ' 3 -\ 

■[(fj-i + fj ) n Sj- x aq;_ 1 - (j 5 - , + 2y- +y; + ,^>9/ + Or + 4 + A n + > J 


In the above equations, the subscripts i and j represent grid point indices in the £ and y\ directions. For 
notational convenience, terms without an explicitly written i or j subscript are understood to be at i or j. 

A A 

On the left hand side, /is the coefficient of djd £ (or djdrj, depending on the sweep) in the dEyJdQ (or 
dFvJdQ ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses following d/dc (or djdrj) 

A A A A 

in the dEyJdQ (or dEyJdQ) Jacobian coefficient matrix. 

The vector of dependent variables is 


Q = y[p P« P v E-f? 


The appropriate elements of the inviscid flux vectors are given by 

E 3 = - J [pWZ X + (PV 2 + P)£y + pvQ 
F 3 = y [pwv » ] x + (pv 2 + p)r\ y + pv?j r ] 

The appropriate elements of the non-cross derivative viscous flux vectors are 

<£„,), = -j-jr + 1,* ( ) + + «xV{)] 

(F Vih = y -j^T [ 2 Wy V r, + 2r ty(Vx U f, + VV + Wxl?ly u r, + »7x v ^)] 

And the appropriate elements of the cross derivative viscous flux vectors are 

= ~J pZytfyVyi *F ^^yiVx^rj "F + r Jx v ^ 

(F F2 ) 3 = y + Zy v f) + m x {Zy u l + £x v f)l 


A A 

The elements of the Jacobian coefficient matrix <9E/dQ for the inviscid terms in the ^-momentum 
equation are 


5E 3 

A 

3Q 



<c + 


dp . 

d(pu) ^ 


+/l + v %y + 



d_P 

dE T 



where / = u£, + v£ r . 
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The elements of the Jacobian coefficient matrix dEvJdQ for the viscous terms are 


d(£V,)3 

A 

6Q 


Re r 


dEy x 

A 

dQ 


~xy 


df 


(1) a *y dt(p) 0 


31 


where 



1 d ( u > 



! ~ a *y d £ v p , 

I a yy d£ \ p ) 


31 


- (m + 




<*yy = ptx + ( 2 M + A){ y 


The Jacobian coefficient matrices dF^jdQ and dflFV^/SQ have the same form as 3E 3 /dQ and d(E Vl )ijdQ, 
but with £ replaced by > 7 . 

As an example of how these equations are translated into Fortran, consider the A(pw//) term on the left 

A A A 

hand side for the first sweep. This is the second element of Q, so using the second element in dE 3 /dQ, we 
get for the inviscid term 


A(IV,I,NYM,NRU) = - 


01 (At), 


(i + d 2 )m 




dp 


B(IV,I,NYM,NRU) = 0 


C(IV,I,NYM,NRU) = 


0i(At),j 


(1 4- 8 2 )2A£ 




d(pu) 


JP-l 

d(pu) 


i-U J 


i+ \JJ 


For the viscous terms on the left hand side, we use the second element in d(Ev,) 3 /3Q, which is 

i _a/_L\ 

Re r axy d£ \ P ) 

Thus/= ot xy jRe r and g= 1/p. To add the viscous contribution to this part of the A coefficient submatrix, 
we therefore set 

A(IV,I,NYM,NRU) = A(IV,I,NYM,NRU) e _^J_ [(«),._, - + (a) ; -]( T ) 

(1+0 2 )2(A £) 2 Re r * 

Similar equations may be written for the B and C coefficient submatrices. 

The equations for axisymmetric flow are developed in Appendix B of Volume 1. The axisymmetric 
r-momentum equation for the two ADI sweeps is given by 23 


23 These equations are written for the general case with swirl. For a non-swirl case, the swirl momentum pw would 
not appear as a dependent variable, and the Jacobian coefficient matrices would have only four elements. 
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Sweep 1 (£ direction) 


A • 6 > iAt j 

A(p ^‘ + (1 + 0 2 )2A£ “ 


aE 3 


3E-i 


, A Q. +l - ' 

3Q / V e< ? 

' i f 1 ' 


AQ,_1 


i 


(1 + 6> 2 )2(A?)‘ 


f [ft-,/., + rjfgl jAQ;. , - (/•,_,/_ , + 2r,-/-+ r, + ^VAQ; + (r,/ + r i + ,/ + ,AQ,’ + ,] 


3,At j 


1 + $2 


3H 3 3(H k ) 3 

3Q 3Q 


AQ,=- 


A-r 1 


1 + 0 , 


i-[6^E 3 ) + 5,(rF 3 ) + H 3 ] n 


— T { 6 l r (E Vl ) 3 ] + Sir (F^] + (Hwh}" +^^7 W> £v 2 h] + 6 l r ^h]}" 


1 + 0 2 
3 3 At 


1 +02 


T H r &v 2 h] + 4j> (FfjH]}" " 1 + T+e7 A( * v} ” ~ * 


Sweep 2 (y direction) 


A(PV)j + (1 + 6> 2 )2A r, 

0,At i 


^ ao;.,- rii 

, aq 7 ;>1 V ao 


(1 +32)2(At7)" 


f [(*>. ^//i ,aq;_ , - (rj-tfj-t + ^fj+r J+ j J+l )X A V + to + r j+>f J+ i>V+ .*q,\ ,] 


3,At 1 


1 +0 2 r 


aH 3 3(H k ) 3 


a • 3,At 1 

A <^> + TTa7T 


dQ dQ 

aA 3 dan k h 


aq; = 


3Q 3Q 


where now 


AQ 


A 1 y 

Q = — [p pu pv pw £ r ] 


E 3 = y [pw{ x + (pv 2 + p){ r + pvf J 

a j f 2 “i 

F 3 = y [pHWfjc + (pv + p)rir + pvrit] 

(Ef /,) 3 = { 2 ^ v ? + + T + £c v {)} 

(E Kj>3 = y yy j 2 Wry + + t n/™),,] + pnAnH, + 


1 

_J_ f 

1 ~7 

1 

l 

i r 

1 ~7 

*e r 1 

l 


j 

1 

l 

_LJ : 

j 

*e r l 


Hj = y ( -/) - pw 2 ) 
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(H„) 3 = y yy { - 2p y - + n^) + y- + ’bM,,]} 

The H and H K terms, which do not appear in the 2-D planar form of the equations, result from the non- 
conservative form of the axisymmetric equations. 

A A 

The elements of the Jacobian coefficient matrix dE jdQ for the inviscid terms in the axisymmetric form 
of the energy equation are 


<5E 3 f dp , , dp e e r r , dp t dp E dp £ 

c> v/l ^+/i +<+ a(pv) ^ 0(pw) dE T ir 

where yi = u$ x + 

A A 

The elements of the Jacobian coefficient matrix dE vJdQ for the viscous terms are 


aCEv,)j , 

-.A ~ Re, 


_ ' ' 31 


0 0 


where 


l *** 

\ - * 


-a — ( — ) 

V dQ 

fO 

H 

3 

1 

1 

VP/ 

rr dd \ p ) 


' 31 




a *r = 

= (M + 



a„=^/ + (2 M + ;.K/ 

, A ,2 

a rr = — Zr 

As in 2-D planar flow, the Jacobian coefficient matrices <5F 3 /dQ and d(FVi)j/3Q have the same form as 
5Ej/5Q and d(E vih/dQ, but with d replaced by r\. 

The elements of the Jacobian coefficient matrix dHjdQ are 


dp , 2 

dp 


dp d p dp dp 

d(pu) d(pv) d(pw) dE T 


The elements of the Jacobian coefficient matrix dH v jdQ are 


g(Hp) 3 _ 1 

an ^ e r 


where 
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31 





+ [ 2 „ + + vfi i j- + /,, -jfr ( f ) 

(f ) 

' ' 32 

- - -k ( t ) - t2 " + + T- i - ** if ( T ) 


Note that, except for the additional H and H K terms, the equations for 2-D planar and axisymmetric flow 
are very similar. In the axisymmetric equations there are some additional terms involving the radius r in 
the viscous flux vectors, with corresponding terms in the Jacobian coefficient matrices. The radius r appears 

A A 

as an additional coefficient in front of the flux vectors E, Ey v etc., and in front of the Jacobian coefficient 

AAA A 

matrices dEz/dQ , d(E Vl )ildQ, etc. In addition, 1 jr appears in front of every term in the equation except the 
A(pv) terms. In Proteus , the Fortran variables are defined in such a way that, for many terms, the same 
coding can be used for both 2-D planar and axisymmetric flow. Unfortunately, this may make some of the 
coding a little confusing. It is hoped that this detailed description, when compared with the source listing, 
will help make things clear. 

In COEFY, the coefficients of the left hand side, or implicit, terms are defined first. Note that the im- 
plicit terms for the second ADI sweep have exactly the same form as for the first sweep, but with f replaced 
by y\. By defining DEL, METX, METY, and METT as the grid spacing and metric coefficients in the 
sweep direction, the same coding can be used for both sweeps. The variable RAX is equal to 1 for 2-D 
planar flow, and the radius r for axisymmetric flow. This adds the r in front of the Jacobian coefficient 
matrices for axisymmetric flow, but has no effect for 2-D planar flow. The 1 jr coefficient in front of each 
term will be added later. In this section of code, the coefficient of A(pv) (part of B(IV,I,NYM,NRV)) is 
set equal to r, not 1 as it should be. This will be corrected later. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms. These formulas are presented 
in Section 5.0 of Volume 1. For axisymmetric flow 1 , the Fortran variable JI, which is normally defined as 
1//, is temporarily redefined as rjj before the COEF routines are called. This automatically accounts for 
the r coefficient in front of all the flux vectors in the source term. The 1/r coefficient in front of each term 
will be added later. This definition of JI adds an r in front of the A(pv)' l " J term that should not be there. 
This will also be corrected later. 

The coding for the source term for the second sweep comes next. The definition of JI also adds an r in 
front of the A(pv)* term that should not be there. 

And finally, for axisymmetric flow, the entire equation is divided by the local radius r. This adds the 
1/r coefficient where it should be added, and removes the r in front of the A(pv) terms. 

Remarks 

1. This subroutine uses one -dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in the non-sweep (i.e., "vectorized^ direction, and the second subscript is the index in the sweep 
direction. For sections of the code that apply to both sweeps (i.e., the implicit terms and the division 
by r at the end), the first two subscripts are written as (IV, I). For sections of the code that apply only 
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to the first sweep, the first two subscripts are written as (12,11). For sections that apply only to the 
second sweep, they are written as (11,12). The third subscript on A, B, C, and S corresponds to the 
equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for which 
A, B, or C is a coefficient. 

3. The coding of the extra coefficients and source terms in the axisymmetric form of the equations is 
separate from the rest of the coding, and is bypassed if the flow is not axisymmetric. Similarly, the 
coding of coefficients and source terms involving the swirl velocity is separate from the rest of the cod- 
ing, and is bypassed if there is no swirl. 

4. The Euler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous terms. 

5. The thin-layer option is implemented by skipping the calculation of the coefficients and source terms 
for the viscous terms containing derivatives in the specified direction. 
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Subroutine COEFZ (A, B,C,S, METX, METY, METT, NVD,NPTSD) 


Called by Calls Purpose 

EXEC Compute coefficients and source term for the swirl momentum 

equation. 


Input 


DEL 

Computational grid spacing in sweep direction. 

DTAU 

Time step At. 

DXI, DETA 

Computational grid spacing A£ and Arj. 

ETAX, ETAY, ETAT 

Metric coefficients rj xi r\, (or r\ T if axisymmetric), and rj t . 

IBASE, ISTEP 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

* IEULER 

Flag for Euler calculation. 

♦ IHSTAG 

Flag for constant stagnation enthalpy option. 

IS WEEP 

Current ADI sweep number. 

* ITHIN 

Flags for thin-layer option. 

IV 

Index in the 'Vectorized" direction, i v . 

11, 12 

Grid indices i and j, in the £ and rj directions. 

JI 

Inverse Jacobian of the nonorthogonal grid transformation times 
the radius, rJ~ K 

METX, METY, METT 

Derivatives of sweep direction computational coordinate with re- 
spect to x, r, and t. 

MU 

Effective coefficient of viscosity p at time level n. 

NEQ 

Number of coupled equations being solved, N eq . 

NPTS 

Number of grid points in the sweep direction, A'. 

NR, NRU, NRV, NRW, NET 

Array indices associated with the dependent variables p, pu t pv, 
pw , and E T . 

NVD, NPTSD 

Leading two dimensions for the arrays A, B, C, S, METX, 
METY, and METT. 

NZM 

Array index associated with the swirl momentum equation. 

RAX 

The local radius r. 

* RER 

Reference Reynolds number Re r . 

RHO, U, V, W 

Static density p, and velocities u> v, and w, at time level n. 

RHOL, WL 

Static density p and velocity w from previous ADI sweep. 

♦ THZ 

Parameters 0 U 0 2i and 0 3 determining type of time differencing for 
the swirl momentum equation. 

XIX, XIY, XIT 

Metric coefficients $ x , (or £ r if axisymmetric), and 

Y 

Radial coordinate r. 
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Output 

A, B, C Coefficient submatrices A, B, and C at interior points (row NZM 

only). 

S Source term subvector S at interior points (element NZM only). 

Description 

Subroutine COEFZ computes the coefficients and source term for the swirl momentum equation, which 
is only valid in axisymmetric flow. The equations for axisymmetric flow are developed in Appendix B of 
Volume 1 . The swirl momentum equation for the two ADI sweeps is given by 24 


Sweep 1 (£ direction) 




l 

(i+0 2 )2A5 ' 

T 1 


£E d 


dU 


f -r- I A Q, + i~l r -T- 
dQ \ dQ 

i + 1 v 


A Q,-i 


(l + ewA f r 


7- [>,_ + rjSst ,AQ'- , - 1/-1 + 2 rj, + r i+ J.^fg-AQ, + {rj, + + ,)V + , A Q,' + 1] 


d \A-c \ 


1 +0 2 


3H 4 3(H K ) 4 

dQ dQ 


AQ, = - 4- [«<CT Eo) + V r *«> + Hj" + Kl/ &,)«] + 6 l r <Fk,>4] + («4 


+ 0+^1 ± ^[,(E, 2 ) 4 ] + <54 (4>]r - T^- T {«<[' ^ 2 ) 4 ] + *4> “ 1 + TTa7 " 1 


Sweep 2 (>? direction) 


A _ ^ 1 At 1 

4 K+(iri^T 

6, A-z 


sf 4 


r — r - 1 

3Q / \ aQ 

i- 1 


5F 4 


a Q,\i 


(1 + d 2 )2(Anr 


4 [<0 lAQ + 0 + ,/ + ,)V a Q; + 0>/y + l>V* >] 


9\At 1 


1 +0 2 r 


SHt 3(H K ) 4 
dQ 3Q 


AQ." = A(pW) 


A A “I" 

• ^[At ) 3H 4 ^ 3(H^>) 4 »■ 

+ 1 + S 2 r ^ 3Q 3Q 


In the above equations, the subscripts / and y represent grid point indices in the £, and rj directions. For 
notational convenience, terms without an explicitly written i or j subscript are understood to be at i or j. 

On the left hand side, /is the coefficient of d/d£ (or djdtj, depending on the sweep) in the dFyJdQ (or 
dFyJdQ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses following djdq (or djdrj) 

A A A A 

in the dEyJdQ (or dFyJdQ) Jacobian coefficient matrix. 


The vector of dependent variables is 

A 1 T 

Q = y [p P“ pv pw £ r ] 


The appropriate elements of the inviscid flux vectors are given by 


24 These equations are written assuming the energy equation is being solved. For a constant stagnation enthalpy case, 
the total energy Ej would not appear as a dependent variable, and the Jacobian coefficient matrices would have 
only four elements. 
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A 1 

E 4 = — ipuw£ x + f>vw£ r + pw^] 

A 1 

F 4 = y [pUWrj x + pvwtj r + pwrij 

The appropriate elements of the non-cross derivative viscous flux vectors are 

(E (/,) 4 = y -j^T 

(F p,) 4 = y 77 {p*ix w ri + 

And the appropriate elements of the cross derivative viscous flux vectors are 

(Ej/ 2 )4 = —J ( K ^ L ^x Y lx w rf ~~ ~r~ ) 

(Fp^ = 7 -JT (m X Zx w !; + w - Mr -7- ) 

The extra terms resulting from the non-conservative form of the axisymmetric equations are 

a 1 
H 4 = y pvw 

(H y} 4 = y 77 [p(Zr w i + *!r w n ) ~ P ~T~ ] 

A A 

The elements of the Jacobian coefficient matrix dE/dQ for the inviscid terms in the r-momentum 
equation are 

A 

i5l==[ — w/l w( x W £ r £,+/, 0] 

dQ 

where fi = u£ x + v£,. 


A A 

The elements of the Jacobian coefficient matrix dEyJdQ for the viscous terms are 


5(E Kj ) 4 

A 

dQ 


Re r 


( ^ 

| ° ° d £ ( p ) 


U> 

0 


41 




where 



^x 2 + ^r 2 

A A A A A A A A 

The Jacobian coefficient matrices dF 4 /3Q and d(F v^/dQ have the same fonn as dE^/dQ and ^(E^WSQ, 
but with l replaced by rj . 
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The elements of the Jacobian coefficient matrix oH/cQ are 

dH 4 


A 

dQ 


= [ — vw 0 w v 0] 


The elements of the Jacobian coefficient matrix dHyjdQ are 


where 


<3(H{/) 4 i 


A 

dQ 


Re r 


A 

<3H, 


dQ 


0 0 


41 


d Hy 

A 

dQ 


44 


3H,, 

A 

dQ 


- \ P / + r P drj \ P ) 


41 


3H K 

A 

5Q 


■ M It ( 7 ) ~r T + ir (' T ) 


44 


As an example of how these equations are translated into Fortran, consider the A(pvjJ) term on the left 

A A A 

hand side for the fust sweep. This is the third element of Q, so using the third element in dEa/dQ, and in* 

A A 

eluding the contribution from the third element of dHU/SQ, we get for the inviscid term 


A(IV,I,NZM,NRV) 

B(IV,I,NZM,NRV) 

C(IV,I,NZM,NRV) 


01 (At) u 
(1+0 2 )2A£ 


1 


r ‘J 


[(nv{ r ),-_ ! j] 


0l(^ T )i,y 1 

1 + 0 2 Wi ’J 


MtJ 1 r/ ,, , 

(1 + 6 2 )2A? r i,j K w W/ + i,y] 


For the A(pvjf) term, there are no viscous terms on the left hand side. 

In COEFZ, the coefficients of the left hand side, or implicit, terms are defined first. Note that the im- 
plicit terms for the second sweep have exactly the same form as for the first sweep, but with £ replaced by 
y}. By defining DEL, METX, METY, and METT as the grid spacing and metric coefficients in the sweep 
direction, the same coding can be used for both sweeps. Since COEFZ is only used in axisymmetric flow, 
the variable RAX is equal to the radius r. This adds the r in front of the Jacobian coefficient matrices. 
The 1 Jr coefficient in front of each term will be added later. In this section of code, the coefficient of 
A (pw) (part of B(IV,I,NZM,NRW)) is set equal to r, not 1 as it should be. This will be corrected later. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms. These formulas are presented 
in Section 5.0 of Volume 1. For axisymmetric flow, the Fortran variable JI, which is normally defined as 
1/7, is temporarily redefined as rjJ before the COEF routines are called. This automatically accounts for 
the r coefficient in front of all the flux vectors in the source term. The 1 jr coefficient in front of each term 
will be added later. This definition of JI adds an r in front of the A(pw ) n ~ 1 term that should not be there. 
This will also be corrected later. 
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The coding for the source term for the second sweep comes next. The definition of JI also adds an r in 

front of the A(pw)* term that should not be there. 

And finally, the entire equation is divided by the local radius r. This adds the 1/r coefficient where it 

should be added, and removes the r in front of the A(pW) terms. 

Remarks 

1. This subroutine uses one- dimensional addressing of two-dimensional arrays, as described in Section 2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The fust subscript is the 
index in the non-sweep (i.e., Vectorized") direction, and the second subscript is the index in the sweep 
direction. For sections of the code that apply to both sweeps (i.e., the implicit terms and the division 
by r at the end), the first two subscripts are written as (IV, I). For sections of the code that apply only 
to the first sweep, the first two subscripts are written as (12,11). For sections that apply only to the 
second sweep, they are written as (11,12). The third subscript on A, B, C, and S corresponds to the 
equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for which 
A, B, or C is a coefficient. 

3. The coding of the extra coefficients and source terms in the axisymmetric form of the equations is 
separate from the rest of the coding, and is bypassed if the flow is not axisymmetric. Similarly, the 
coding of coefficients and source terms involving the swirl velocity is separate from the rest of the cod- 
ing, and is bypassed if there is no swirl. 

4. The Euler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous terms. 

5. The thin-layer option is implemented by skipping the calculation of the coefficients and source terms 
for the viscous terms containing derivatives in the specified direction. 
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Subroutine CONV 

Calls 

ISAMAX 

Input 



CHGMAX 

Maximum change in absolute value of the dependent variables 
from time level n — 1 to n (or over the previous NITAVG — 1 
time steps if ICTEST = 2), AQ m „. 


DUMMY 

A two-dimensional scratch array. 

* 

EPS 

Convergence level to be reached, s. 

* 

GAMR 

Reference ratio of specific heats, y r . 

* 

IAV2E, IAV4E 

Flags for second- and fourth-order explicit implicit artificial 
viscosity. 

* 

ICTEST 

Flag for convergence criteria to be used. 

+ 

IHSTAG 

Flag for constant stagnation enthalpy option. 

* 

ISWIRL 

Flag for swirl in axisymmetric flow. 


IT 

Current time step number n. 


NEQ 

Number of coupled equations being solved, N eq . 

* 

NITAVG 

Number of time steps in moving average convergence test. 

* 

NOUT 

Unit number for standard output. 


NR, NRU, NRV, NRW, NET 

Array indices associated with the dependent variables p, pu, pv, 
pw , and £r* 


NTOTP 

Dimensioning parameter specifying the storage required for a full 
two-dimensional array (i.e., NIP x N2P). 

+ 

NT, N2 

Number of grid points and V 2 , in the and r\ directions. 


RESAVG 

The average absolute value of the residual at time level n 7 R avg . 


RESL2 

The L 2 noim of the residual at time level n , R L2 . 


RESMAX 

The maximum absolute value of the residual at time level n, 

Rrnax- 


RGAS 

Gas constant R. 


RHO, U, V, W, ET 

Static density p, velocities u y v, and w, and total energy E r at time 
level n + 1 . 


RHOL, UL, VL, WL, ETL 

Static density p , velocities u y v, and w, and total energy E r at time 
level n. 

Oul 

(put 



CHGAVG 

Maximum change in absolute value of the dependent variables, 
averaged over the last NITAVG time steps, AQ^. 


CHGMAX 

Maximum change in absolute value of the dependent variables 


from time level n to 1 (or over the previous NITAVG time 
steps if 1CTEST - 2), AQ m „. 


Purpose 

Test computed flow field for convergence. 


Called by 
MAIN 
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ICONY 


Convergence flag; 1 if converged, 0 if not. 


Description 

Subroutine CONV checks the computed flow field for convergence. Convergence may be based on: (1) 
the absolute value of the maximum change in the dependent variables over the previous time step; (2) the 
absolute value of the maximum change in the dependent variables, averaged over the last N1TAVG time 
steps; (3) the L 2 norm of the residual for each equation; (4) the average residual for each equation; or (5) 
the maximum residual for each equation. These parameters are defined in Section 4.1.6 of Volume 2. 

The convergence criteria to be used and the level to be reached are set by the input parameters ICTEST 
and EPS. Each dependent variable or equation is checked separately, and convergence is declared when the 
specified level is reached for all of the variables or equations. The same criteria is used for each one, but 
different levels may be specified. 

Subroutine CONV first computes AQ m „, the absolute value of the maximum change in each dependent 
variable over all the grid points for the most recent time step. These values are stored in 
CHGMAX(IVAR,1), where IVAR varies from 1 to NEQ, the number of dependent variables. If 
ICTEST = 2 (the so-called 'moving average" convergence test), CHGMAX(IVAR,2) contains the maxi- 
mum change for the previous time step, etc. 

Then, depending on the value of ICTEST, the chosen convergence criteria is compared with the level 
to be reached for each dependent variable or equation, and a flag is set if the calculation is converged. 

Remarks 

1. For ICTEST = 1 or 2,_the change in £ r is divided by Rj{y r — 1) + 1/2. This is equivalent to dividing 
the dimensional value £> by 

p r RT r Pr u 3 4 5 6 7 
e t = r + — o — 

This makes the change in total energy the same order of magnitude as the other conservation variables. 

2. For ICTEST = 1 or 2, the convergence test is based on (or includes) the change in dependent variables 
from time level n to n + 1. For ICTEST = 3, 4, or 5, convergence is based on the residual at time level 
n : not n+ 1. This is because the residuals at time level n + 1 are not computed until the marching step 
from n + 1 to n + 2 is taken. 

3. For cases run with artificial viscosity, the residuals are computed and printed both with and without the 
artificial viscosity terms. This may provide some estimate of the overall error in the solution introduced 
by the artificial viscosity. Convergence is determined by the residuals with the artificial viscosity terms 
included. 

4. The Cray search routine ISAMAX is used in computing the absolute value of the maximum change in 
dependent variables. 

5. The scratch array DUMMY, from the common block DUMMY 1, is used to store the values of the 
change in dependent variables for use by ISAMAX. 

6. A warning message is generated if an illegal convergence criteria is specified. ICTEST is reset to 3 

(convergence based on the Li norm of the residual), and the calculation will continue. 
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Subroutine CUBIC (IDIR, T,G, NOLD, TINT, GINT) 

Called by 

Calls 

Purpose 

PAK 1 


Interpolation using Ferguson's parametric cubic. 


G 


IDIR 


II, 12 


NOLD 


♦ Nl, N2 

T 

TINT 


Output 

GINT 


Description 


A two-dimensional array containing NOLD1 x NOLD2 values 
of the function g(t) to be interpolated. 

Direction flag; 1 if first subscript in G varies, 2 if second subscript 
varies. 

Grid indices i and j, in the £ and rj directions. 

Number of values in direction IDIR in array G (i.e., NOLD1 or 
NOLD2.) 

Number of grid points N, and jV 2 , in the £ and rj directions. 

A one-dimensional array containing NOLD values of the inde- 
pendent variable /. 

A one-dimensional array containing Nl or N2 (depending on 
IDIR) values of the independent variable t = t mt at which in- 
terpolated values g,„, = g{t, n ,) are desired. 


A one-dimensional array containing Nl or N2 (depending on 
IDIR) interpolated values g m , = g(L,,)- 


Subroutine CUBIC performs interpolation using Ferguson's parametric cubic polynomial (Faux and 
Pratt, 1979). Given the function g{t) and a value t M , CUBIC computes g,„, = git*,)- 

The function g(t) is specified by the Fortran arrays G and T. For a general value f, let 



where l u < f < t d . (I.e., l u and U are the two elements of the 
Between t u and t d , assume g can be described by a cubic 

g= a \ + a l l f+ a 3 1 / 


array T that bracket f.) 
polynomial in t f , as follows: 

+ a 4 l f 


Differentiating, 


g 1 = = <h + 2° 3 tf + 3a 4 ty 2 


Noting that //= 0 at t = t u , and 1 at t = t d , we get 
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Solving for a, through a», 


& = a i 
=a 2 

Sd ~ a \ + a 2 + a 3 + a 4 
= 02 + 2 a 3 + 3 u 4 

a i = & 

<h=£u 

a 2 = ^iSd-gu)~ Zgl -Sd 

a 4 = 2 (gu — gd) + g' u + g'd 
Pluming these into the cubic polynomial for f and rearranging 

g — £u(\~ 2t / + 2 tj) + — 2lj) 

+ g'u 0/~ 2t f + *f) +&(-'/ + */) 

This is the form of the equation used to compute g^. 

Remarks 

1. At interior points in the array g, the derivatives g' u and g* d are computed using a second-order central 
difference formula. At the end points, second-order one-sided difference formulas are used. 

2. The Fortran variable TINT is actually a one -dimensional array containing N] or N 2 input values of 
t mt . Similarly, GINT is a one-dimensional array containing N\ or N 2 output values of g m r . 

3. The Fortran array G that specifies the input values of g(t) is actually a two-dimensional array. Within 
CUBIC, however, only one of the subscripts varies. The input flag IDIR specifies which one. 
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Subroutine EQSTAT (ICALL) 

Called by 

Calls 

Purpose 

BVLP 

EXEC 

INITC 

MAIN 


Use equation of state to compute pressure, temperature, and their de- 
rivatives with respect to the dependent variables. 


Input 

CP, cv 

* HSTAG 

I BASE, ISTEP 
ICALL 

* IHSTAG 
NPTS 

* Nl, N2 
RGAS 

RHO, U, V, W, ET 

Output 

DPDRHO, DPDRU, DPDRV, 

DPDRW, DPDET 

DTDRHO, DTDRU, DTDRV, 

DTDRW, DTDET 

ET 

IN EG 

P, T 

Description 

Subroutine EQSTAT computes various quantities that depend on the form of the equation of state. It 
actually serves a dual purpose. First, it is called from subroutine INITC and from the MAIN program, 
with the input parameter ICALL = 0, to compute the static pressure p and temperature T from the initial 
or just-computed values of the dependent variables. If the constant stagnation enthalpy option is being used 
it also computes a value for the total energy E r . And second, it is called from subroutines BVLP and 
EXEC, with ICALL = 1, to compute the derivatives of p and T with respect to the dependent variables. 25 

The equation of state currently built into Proteus is for a perfect gas. The formulas used to compute 
p t T , and their derivatives with respect to the dependent variables are presented in Section 4.3 of Volume 
1 for two-dimensional planar flow and in Section B.2.3 of Volume 1 for axisymmetric flow. 


Specific heats c p and c v . 

Stagnation enthalpy h T used with constant stagnation enthalpy 
option. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

0 to get p and T, 1 to get derivatives of p and T with respect to 
dependent variables. 

Flag for constant stagnation enthalpy option. 

Number of grid points in the sweep direction, N. 

Number of grid points N\ and in the £ and r\ directions. 

Gas constant R . 

Static density p, velocities u , v, and w, and total energy Er . 

Derivatives dpjdp , dpld(pu), 3p/5(pv), dpjd(pw), and dpjdEr • 
Derivatives dTjdp , dTld(pu), dTjd(pv), dTjd(p\s ), and dTjdE r . 

Total energy (constant stagnation enthalpy option only.) 

Flag for non-positive pressure and/or temperature; 0 if positive, 1 
if non-positive. 

Static pressure p and temperature T. 


25 These are needed for linearization of the governing equations. See Section 4.1 of Volume 1 for details. 
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Remarks 


1. When used to compute p and T (ICALL = 0), this subroutine is called from outside any loops in the 
f or yj directions. When used to compute dpjdp , etc., (ICALL = 1), it is called for each ADI sweep 
from inside a loop in the non-sweep direction. 

2. When computing dpjdp , etc., this subroutine uses one-dimensional addressing of tw r o -dimensional ar- 
rays, as described in Section 2.3. 
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Subroutine EXEC 

Called by 

Calls 

Purpose 

MAIN 

ADI 

AVISC1 

AVISC2 

BCELIM 

BCGEN 

BVUP 

COEFC 

COEFE 

COEFX 

COEFY 

COEFZ 

EQSTAT 

PERIOD 

RESID 

UPDATE 

Manage solution of governing equations. 


Input 

DXI, DETA 
ETAX, ETAY, ETAT 

* IAV2E, IAV4E, IAV2I 

* IAXI 
IBCELM 


* ICHECK 

♦ IHSTAG 

♦ ISWIRL 
IT 

ITBEG 

* ITHIN 
JI 

KBCPER 

NEQP 


NPT1, NPT2 


NTABC 

NTS 


Computational grid spacing Ac and At], 

Metric coefficients tj x , rj y (or rj r if axisymmetric), and rj,. 

Flags for second-order explicit, fourth-order explicit, and second- 
order implicit artificial viscosity. 

Flag for axisymmetric flow. 

Flags for elimination of off-diagonal coefficient submatrices re- 
sulting from three-point boundary conditions in the ; and rj di- 
rections at either boundary; 0 if elimination is not necessary, 1 if 
it is. 

Convergence checking interval. 

Flag for constant stagnation enthalpy option. 

Flag for swirl in axisymmetric flow. 

Current time step number n. 

The time level n at the beginning of a run. 

Flags for thin-layer option. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ *. 

Flags for spatially periodic boundary conditions in the £ and r\ 
directions; 0 for non-periodic, 1 for periodic. 

Dimensioning parameter specifying maximum number of coupled 
equations allowed. 

N x and Ni for non-periodic boundary conditions, + 1 and 
.V, + l for spatially periodic boundary conditions in C and r\. 

Dimensioning parameter specifying total storage required for the 
coefficient submatrices A, B, and C. 

Dimensioning parameter specifying total storage required for the 
source term subvector S. 
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* N1,N2 

NIP, N2P 

XIX, XIY, XIT 
Y 

Output 

DEL 

IBASE, ISTEP 

ISWEEP 

IV 

II, 12 
JI 

METX, METY, METT 

NPTS 

NV 

RAX 

RHO, U, V, W, ET 
RHOL, UL, VL, WL, ETL 
TL 


Number of grid points A r i and N 2l in the l and yj directions. 

Parameters specifying the dimension sizes in the £ and di- 
rections. 

Metric coefficients (or £ r if axisymmetric), and £ f . 

Radial coordinate r for axisymmetric flow. 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Current ADI sweep number. 

Index in the Vectorized" direction, £. 

Grid indices i and j, in the £ and rj directions. 

The radius times the inverse Jacobian of the nonorthogonal grid 
transformation, rJ ~ 1 (used in COEF routines for axisymmetric 
flow only.) 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y (or r if axisymmetric), and t. 

Number of grid points in the sweep direction, N. 

Number of grid points in the "vectorized" direction, N v . 

1 for two-dimensional planar flow, and the local radius r for 
axisymmetric flow. 

Static density p, velocities w, v, and w, and total energy Er at time 
level n + 1. 

Static density p, velocities w, v, and w, and total energy E T at time 
level n . 

Static temperature T at time level n. 


Description 

Subroutine EXEC manages the solution of the governing equations. It is called by the MAIN program 
during each marching step from time level n to n + 1. The steps involved in EXEC are described below. 

Preliminary Steps 

1. If this is the first time step, temporarily set the thin-layer flags to zero. 

2. Initialize the coefficient submatrices A, B, and C, and the source term subvector S, to zero. 

3. If spatially periodic boundary conditions are being used in either direction, call PERIOD to add the 
appropriate extra line(s) of data. 

First ADI sweep, l direction 

4. Set various sweep-dependent parameters, as follows: 

isweep = 1 

istep = 1 

del — A£ 

npts = Ni or Vi + 1 

nv = N 2 or N 2 + 1 
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5. For axisymmetric flow, set JI = rjJ at all grid points. 

6. Set metrics in sweep (£) direction at all grid points as follows: 

metxC i2 > il ) = (5*)i,y 
mety ( i2 ,il ) = or (£ r ) fi , 

mett C i2 , i 1 ) = (£,)<-,; 

7. Begin loop in non-sweep (*/) direction over interior points (/= 12 = 2 to NPT2 — 1). 

8. For axisymmetric flow, set RAX(Il) = r tJ along the current >pline at all £ grid points. 

9. Call EQSTAT to get the derivatives of p and T with respect to p, pu , etc., along the current >j-line 
at all £ grid points. 

10. Call the COEF routines to compute the coefficients and source terms for the governing equations 
along the current rj -line at all interior £ grid points. 

11. End of loop in non-sweep (>?) direction. 

12. For axisymmetric flow, reset JI = 1 jJ at all grid points. 

13. For non- spatially periodic boundary conditions in the f direction, begin loop in non-sweep (>7) direction 
over interior points (J = 12 = 2 to NPT2 — 1). 

14. Call EQSTAT to get the derivatives of p and T with respect to p, pu , etc., along the current *;-line 
at all £ grid points. 

15. Call BCGEN to compute the coefficients and source terms for the boundary condition equations 
at the end points (/ = II = 1 and N\) of the current rj- line. 

16. If three-point boundary conditions were used at either boundary, call BCELIM to eliminate the 
resulting off-diagonal coefficient submatrices. 

17. End of loop in non-sweep (>7) direction. 

18. Every ICHECK time steps, call RES1D to compute residuals at time level n without the artificial 
viscosity terms, and to update the convergence history file. 

19. If artificial viscosity is being used, call AVISC1 or AVISC2 to add the appropriate terms to the coeffi- 
cient submatrices and/or the source term subvectors at all interior grid points. 

20. Every ICHECK time steps, if artificial viscosity is being used, call RESID to compute residuals at time 
level n with the artificial viscosity terms, and to update the convergence history file. 

21. If spatially periodic boundary conditions are being used in the £ direction, reset NPTS = N\. 

22. Call ADI to solve the system of difference equations. 

23. Begin loop in non-sweep (y]) direction over interior points (/ = 12 = 2 to NPT2 — 1). 

24. Call UPDATE to compute the primitive flow variables, Q\ from the newly computed conservation 
variables in delta form, AQ*, along the current rj - line at all f grid points. 

25. End of loop in non-sweep (>/) direction. 

Second ADI sweep , rj direction 

26. Set various sw r eep-dependent parameters, as follows: 

isweep = 2 

istep = nip 

del = At] 

npts = A r 2 or N 2 + 1 

nv = A r i or A r i + 1 

27. For axisymmetric flow, set JI = rjJ at all grid points. 
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28. Set metrics in sweep (tj) direction at all grid points as follows: 

me tx (11,12) — 

mety ( i 1 , 12 ) = (^ y ) tJ or 

mett(il,12) = 

29. Begin loop in non-sweep (£) direction over interior points (/ = II = 2 to NPT1 — 1). 

30. For axisymmetric flow, set RAX(I2) = r iyj along the current <J-line at all rj grid points. 

31. Call EQSTAT to get the derivatives of p and T with respect to p, pu , etc., along the current £-line 
at all >; grid points. 

32. Call the COEF routines to compute the coefficients and source terms for the governing equations 
along the current £-line at all interior y\ grid points. 

33. End of loop in non-sweep (£) direction. 

34. For axisymmetric flow, reset JI = 1/7 at all grid points. 

35. For non-spatially periodic boundary conditions in the rj direction, begin loop in non-sweep (£) direction 
over interior points (/ = II = 2 to NPT1 — 1). 

36. Call EQSTAT to get the derivatives of p and T with respect to p, pu, etc., along the current £-line 
at all r] grid points. 

37. Call BCGEN to compute the coefficients and source terms for the boundary condition equations 
at the end points (/= 12 = 1 and N 2 ) of the current £-line. 

38. If three-point boundary conditions were used at either boundary, call BCELIM to eliminate the 
resulting off-diagonal coefficient submatrices. 

39. End of loop in non-sweep (£) direction. 

40. If implicit artificial viscosity is being used, call AVISC1 to add the appropriate terms to the coefficient 
submatrices at all interior grid points. 

41. If spatially periodic boundary conditions are being used in the v\ direction, reset NPTS = N 2 . 

42. Call ADI to solve the system of difference equations. 

43. Begin loop in non-sweep (£) direction over interior points (/ = II = 2 to NPT1 — 1). 

44. Call UPDATE to compute the primitive flow variables p n + \ 1 , etc., from the newly computed 

conservation variables in delta form, AQ", along the current £-line at all rj grid points. 

45. End of loop in non-sweep (£) direction. 

Finishing Steps 

46. If this is the first time step, reset the thin-layer flags back to their input value. 

47. Call BVUP to update the £ boundary values, if necessary. 

48. For all grid points, shift RHO and RHOL so that RHO = p n + l and RHOL = p\ Similarly, shift the 
Fortran variables for u, v, w, and £ r . Finally, set TL = T n . 
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Subroutine EXECT 

Called by 

Calls 

Purpose 

TURBCH 

BLK2 

BLK2P 

COEFS1 

COEFS2 

PERIOD 

UPDTKE 

Manage solution of the k-t equations. 


Input 

A 

* CMUR 

* CTHREE 
JI 

KBCPER 
NPT1, NPT2 

* Nl, N2 
NIP, N2P 


RHO 

S 

YPLUSD 

Output 

E, EL 
ISWEEP 
KE, KEL 
MUT, MUTL 
N'PTS 
NV 

S 


Coefficient submatrix A. 

Constant C„, in formula for C„. 

Constant C 3 in formula for C„. 

Inverse Jacobian of the nonorthogonal grid transformation, J ~ '. 

Flags for spatially periodic boundary conditions in the £ and >7 
directions; 0 for non-periodic, 1 for periodic. 

Ni and N 2 for non-periodic boundary conditions, M + 1 and 
N 2 + 1 for spatially periodic boundary' conditions in £, and rj. 

Number of grid points Nj and N 2 , in the C and rj directions. 

Parameters specifying the dimension sizes in the C and rj di- 
rections. 

Static density p at time level n. 

Source term subvector S. 

Nondimensional distance y + from the nearest solid wall. 


Turbulent dissipation rate e at time levels n + 1 and n. 
Current ADI sweep number. 

Turbulent kinetic energy k at time levels n + 1 and n. 
Turbulent viscosity p, at time levels n + 1 and n. 
Number of grid points in the sweep direction, N. 
Number of grid points in the "vectorized" direction, N.. 

Computed solution subvector AW. 


Description 


Subroutine EXECT manages the solution of the k-t equations. It is called by subroutine TURBCH, 
NTKE times per mean flow iteration. The steps involved in EXECT are described below. 


Preliminary Steps 

1. If spatially periodic boundary conditions are being used in either direction, call PERIOD to add the 
appropriate extra line(s) of data. 
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First ADI sweep, c direction 

2. Set various sweep- dependent parameters. 

3. Call COEFS1 to compute the coefficients and source terms for the k-t equations. 

4. Solve the system of difference equations by calling BLK2 for non-periodic boundary conditions, or 
BLK2P for periodic boundary conditions in the £ direction. 

Second ADI sweep, r\ direction 

5. Set various sweep-dependent parameters. 

6. Swap indices in the subvector S. The submatrix A is used as a temporary scratch array for this opera- 
tion. 

7. Call COEFS2 to compute the coefficients and source terms for the k-z equations. 

8. Solve the system of difference equations by calling BLK2 for non-periodic boundary conditions, or 
BLK2P for periodic boundary conditions in the r\ direction. 

Finishing Steps 

9. For all grid points, set KEL = k n and EL = z n . 

10. Call UPDTKE to compute the primitive flow variables k n + 1 and z n + 1 from AYV n , the newly computed 
conservation variables in delta form. 

11. Compute the turbulent viscosity at each grid point, storing and (i n t in MUT and MUTL, respec- 
tively. 


Proteus 2-D Programmer's Reference 


4.0 Proteus Subprograms: EXECT 189 


Subroutine FILTER (A.B.C.S, NVD, NPTSD) 

Called by 

Calls 

Purpose 

BLK3 

BLK4 

BLK5 

BLKOLT 

ISAMAX 

ISRCHEQ 

Rearrange rows of the boundary condition coefficient submatrices and 
the source term subvector to eliminate any zeroes on the diagonal. 


Input 

A, B, C 

* IDEBUG 

* IPRT1A, IPRT2A 
ISWEEP 

IT 

IV 

NEQ 

* NOUT 
NPRT1, NPRT2 
NPTS 

NVD, NPTSD 
S 

Output 

A, B, C 
S 


Coefficient submatrices A, B, and C before rearrangement. 
Debug flags. 

Indices for printout in the £ and rj directions. 

Current ADI sweep number. 

Current time step number n. 

Index in the Vectorized"' direction, i v . 

Number of coupled equations being solved, N eq . 

Unit number for standard output. 

Total number of indices for printout in the £ and rj directions. 
Number of grid points in the sweep direction, N. 

Leading two dimensions for the arrays A, B, C, and S. 

Source term sub vector S before rearrangement. 


Coefficient submatrices A, B, and C after rearrangement. 
Source term subvector S after rearrangement. 


Description 

Subroutine FILTER rearranges rows of the coefficient block submatrices and the source term subvector, 
at the two boundaries in the ADI sweep direction, in an attempt to eliminate any zero values on the diag- 
onal of the submatrix B. These zero values may occur when mean flow boundary conditions are specified 
using the JBC and/or IBC input parameters, depending on the initial conditions and the order of the 
boundary conditions. 

For instance, if the specified initial conditions are zero velocity and constant flow properties everywhere 
in the flow field, the perfect gas equation of state yields: 

E t = pCyT 


p = (y- l)£r 

dp dp _ dp 
dp d(pu) d(pv) 


dp_ 

dE T 


= y- 1 
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8T 

dp 


dT 

d{pu) 


c v p‘ 

dT 

d(pv) 


= 0 


dT _ 1 
dE T <V> 

If, in addition, the boundary conditions at a given boundary are, in order, specified pressure p—f no-slip 
x- and and ^-velocity u = 0 and v = 0, and specified temperature T=f then the linearization of the 
boundary conditions leads to the following B coefficient submatrix for that boundary: 

0 0 0 J(y - 1)" 

t > _ 0 J/p 0 0 

0 0 Jlp 0 

- JE T jc vP 2 0 0 jjc v p 


The zero on the diagonal will lead to a divide -by-zero error in subroutine BLK4, even though this is not a 
singular matrix. 


Subroutine FILTER tries to fix this problem. In this example, it finds a zero at element Bn, searches 
column 1 for the largest element in absolute value (in this case — JE T \c v p r ), and adds that row to the row 
with the zero on the diagonal. Of course, the corresponding rows of A, C, and S must also be added to- 
gether. The new B submatrix would be: 

- JE r lc v p 2 0 0 J(y — 1 ) 4- J/c vP 

r> _ 0 Jjp 0 0 

0 0 0 Jlp 0 

— JE r jc v p 0 0 Jlc v p 


Remarks 

1. If a column with a zero on the diagonal has no other elements greater than 10“ 10 , then it is assumed that 
the matrix B is singular, which means the specified boundary conditions are not independent of one 
another. An error message is printed and the calculation is stopped. 

2. It s probably sufficient to only call this subroutine for the first time step. After the first step, the chances 
of u and v both being exactly zero at the same interior grid point are slim. Nevertheless, in the current 
version of Proteus , FILTER is called at every time step. 

3. The Cray search routine ISAMAX is used in finding the largest element in any column corresponding 
to a zero on the matrix diagonal. The Cray search routine ISRCHEQ is used in determining the grid 
locations for debug printout. 

4. This subroutine generates the output for the IDEBUG(4) option. 
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Subroutine FTEMP 

Called by 

Calls 

Purpose 

INITC 

MAIN 


Compute auxiliary variables that are functions of temperature. 


Input 

CCP1, CCP2, CCP3, CCP4 
CK1, CK2 
CMU1, C\IU2 
* GAMR 
IGAM 


* ILAMV 

* NOUT 

* Nl, N2 
RGAS 
T 

* TR, UR, MUR, KTR 


Constants in formula for specific heat. 

Constants in formula for laminar thermal conductivity coefficient. 
Constants in formula for laminar viscosity coefficient. 

Reference ratio of specific heats, y r . 

Flag for constant or variable c p , c Vi and y ; 0 if they are to be 
computed as functions of temperature, 1 if they are to be treated 
as constant. 

Flag for computation of laminar viscosity and thermal 
conductivity. 

Unit number for standard output. 

Number of grid points A i and A r 2 , in the £ and rj directions. 

Gas constant R . 

Static temperature T. 

Reference temperature T n velocity viscosity \x r , and thermal 
conductivity k r . 


Output 


CP, CV Specific heats c p and c*. 

MU, LA, KT Laminar coefficient of viscosity ju/, laminar second coefficient of 

viscosity 2/, and laminar coefficient of thermal conductivity k t . 


Description 


Subroutine FTEMP computes the auxiliary variables //, k h c p , and c v . For the laminar viscosities ji/ 
and 2 ; , and the laminar thermal conductivity k h there are two options currently available. 

If the input parameter ILAMV = 0 (the default), FTEMP sets the nondimensional values as: 

M/= 1 

2, = -2/3 
*/= 1 

Thus, with this option, the laminar viscosity and thermal conductivity are held constant at their reference 
values. These reference values may be specified by the user, or computed from the reference temperature. 
The laminar second coefficient of viscosity 2/ is set equal to — 2\nl 3. 

If ILAMV = 1, m/ and k { are computed as functions of temperature using Sutherland's formula (White, 
1974). The formula for the laminar viscosity coefficient pi is 
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3/2 


_ fH _ /4 T ' + C JI ( T \ 

N *r f + C^\T r ) 

where the overbar indicates a dimensional value, and \T r is the laminar viscosity coefficient at T — 73, given 
by 


j.3/2 

^ =C/cl T'+Cp 

Depending on the namelist input values of MUR and RER, \T r may or may not be equal to ^ r . These 

formulas are valid for air for temperatures from 300 to 3420 °R (167 to 1900 K). The value of the constants 

C u i and O 2 depend on whether reference values are being specified by the user in English units 
(IUNITS = 0) or SI units (IUNITS =1). The values are presented in Table 4-1. The laminar second co- 
efficient of viscosity h is set equal to - 2ju//3. The formula for the laminar thermal conductivity coefficient 
ki is 

k _ El _ k l Tl±£*i ( t V /2 

1 K k r T + C k 2 V T r ) 

where the overbar indicates a dimensional value, and k\ is the laminar thermal conductivity coefficient at 
T = T r , given by 

T? 12 

K = C kx r 

1 r + C *2 

Depending on the namelist input values of KTR and PRLR, k* r may or may not be equal to k r . These 
formulas are valid for air for temperatures from 300 to 1800 °R (167 to 1000 K). The value of the constants 
Ckl and Cki depend on whether reference values are being specified by the user in English units 
(IUNITS = 0) or SI units (IUNITS = 1). The values are presented in Table 4-1. 

There are also two options available for the specific heat coefficients c p and c v . If the flag IGAM = 1, a 
value of the specific heat ratio y has been specified by the user. In this case c p and c*, are treated as constants, 
and computed from 



c p — c v + ^ 


If IGAM = 0, the user did not specify a value of y. In this case, the specific heat coefficient c p is computed 
as a function of temperature from the empirical formula of Hesse and Mumford (1964), and c v is computed 
from that value assuming a thermally perfect gas. The ratio y — Cp/c* will then vary with temperature. The 
equations for c p and c, are: 


<j.-Vr-4 (c,,> - <V r 1,2 - 

“r «r 


T + C^f 2 ) 


<\ = c p - R 

This formula is valid for air for temperatures from 540 to 9000 °R (300 to 5000 K). The values of the 
constants C Cp \ through C CpA are presented in Table 4-1. 
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TABLE 4-1. - EMPIRICAL CONSTANTS FOR m, k,, AND c. 


CONSTANT 

ENGLISH 

UNITS 

SI UNITS 


7.3035 x 10- 7 

1.4582 x 10- 6 

C(t2 

198.6 

110.3 

c„ 

7.4907 x 10- 3 

1.8641 x 10- 3 

Ck2 

350.0 

194.4 

c pl 

8.53 x 10 3 

1.4Z64 x 10 3 

C cp 2 

3.12 x 10 4 

3.8888 x 10 3 

C,3 

2.065 x 10 6 

1.9184 x 10 5 

Ccp4 

7.83 x 10* 

4.0413 x 10 7 


Remarks 

1. The formulas used with the ILAMV = 1 option are for air. For other fluids, different formulas should 
be used to compute A,. and k,. These could easily be programmed as additional ILAMV options. 
Or, if the flow being computed is such that u ; and k, may be considered constant, simply set 
ILAMV = 0 and read in the appropriate values for n r and k r . Note, however, that the ILAMV = 0 
option still sets k t = — 2^ ; /3. 

2. The formula used to compute c„, when a value of y is not specified by the user, is for air. For other 
gases, a different formula should be programmed. Or, if c p and c, may be considered constant, a value 
of y should be read in. 

3. An error message is generated and execution is stopped if an illegal value is specified for ILAMV. 


194 4.0 Proteus Subprograms: FTEMP 


Proteus 2-D Programmer's Reference 




Subroutine GEOM 


Called by 

Calls 

Purpose 

MAIN 7 

METS 

PAK 

Manage computation of grid and metric parameters. 


Input 

* IPACK 

* NGEOM 

* NGRID 
+ NOUT 

* Nl, N2 
NIP, N2P 

* RMIN, RMAX 

* THMIN, THMAX 

* XMIN, XMAX 

* YMIN, YMAX 

Output 

DXI, DETA 
X, Y 

Description 


Flags for grid packing option. 

Flag for type of computational coordinates. 

Unit number for input mesh file. 

Unit number for standard output. 

Number of grid points Ai and N 2 , in the £ and y directions. 

Parameters specifying the dimension sizes in the £ and rj di- 
rections. 

Minimum and maximum P - coordinates for polar grid. 

Minimum and maximum ^'-coordinates for polar grid. 

Minimum and maximum ^-coordinates for Cartesian grid. 
Minimum and maximum ^-coordinates for Cartesian grid. 


Computational grid spacing and Arj. 

Cartesian coordinates x and y , or cylindrical coordinates x and r. 


Subroutine GEOM manages the computation of the grid and metric parameters. There are currently 
three coordinate system options built into Proteus , as follows: 

NGEOM Computational Coordinates 

1 Cartesian (x-j;) 

2 Polar (P-9 f ) 

10 Read from separate file. 

Subroutine GEOM first computes the grid spacing in computational space in the £ and rj directions as 
Af = 1/OVi — 1) and At] — ll(N 2 — 1). Note that grid points in computational space are always evenly dis- 
tributed along the (£->/) coordinate lines. 

Cartesian (x-y) Coordinates (NGEOM = 1) 

For the Cartesian coordinate option, an evenly spaced set of physical Cartesian (x-y) coordinates are 
related to the computational (£-rj) coordinates by 

x ~ x min ( X max ~ x min)> 
y ~ ymin “f t Vmax ~ fffii/j) 1 ! 

These equations also apply to axisymmetric flow, with y representing the radius r. If grid packing is used, 
subroutine PAK is called to redistribute these points according to the packing parameters specified by the 
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user, and to interpolate to get the new physical Cartesian (x-y) coordinates in the computational mesh. 
Subroutine METS is then called to numerically compute the grid transformation metrics and Jacobian. 

Polar (P-6'j Coordinates (NGEOM —2) 

For the polar coordinate option, an evenly spaced set of physical polar (P-d') coordinates are related to 
the computational (%->]) coordinates by 

V = 9 min +(9’ max - e 'min )£ 

** r'min {^rrtax ^min )*7 

The Cartesian (x-y) coordinates are simply given by 

X = P cos 6' 
y = r 7 sin 

The above equations also could be used in axisymmetric flow, with y representing the radius r. As in the 
NGEOM = 1 option, if grid packing is used, subroutine PAK is called to redistribute these points according 
to the packing parameters specified by the user, and to interpolate to get the new physical Cartesian (x-y) 
coordinates in the computational mesh. Subroutine METS is then called to numerically compute the grid 
transformation metrics and Jacobian. 

Coordinates Read From Separate File (NGEOM =10) 


The third option for specifying the computational coordinate system is to read it from a separate file, 
as described in Section 3.2 of Volume 2. The computational (£-*/) coordinate system is determined by a 
set of Nci x Ng2 points whose physical Cartesian (x-y) coordinates are specified. Here N c i, and N G 2 are the 
number of points in the £ and rj directions used to specify the computational coordinate system. Note that 
they do not have to be equal to N\ and the number of points in the computational mesh used for the 
finite-difference method. 26 Note also that the points do not have to be equally distributed in physical space 
along the £ and vj coordinate lines. 

If grid packing is being used, subroutine PAK is called to distribute N\ x N 2 computational mesh points 
in physical space according to the packing parameters SQ specified by the user, and to interpolate among 
the Ngi x Nq 2 points in the input computational coordinate system to get the new physical Cartesian coor- 
dinates of the points in the computational mesh. 

If grid packing is not being used, but Ng\ and Nq2 are not equal to A ; i and N 2 respectively, then sub- 
routine PAK is still called. In this case, however, PAK distributes the A r i x N 2 computational mesh points 
evenly in physical space and then interpolates among the N G \ x Ng 2 points in the input computational co- 
ordinate system to get the new physical Cartesian coordinates of the points in the computational mesh. 

In either case, subroutine METS is then called to numerically compute the grid transformation metrics 
and Jacobian. 

Remarks 

1 . There may be some confusion between the axisymmetric flow option and the polar coordinate system 
option, or between the axisymmetric radius rand the polar coordinate P . They are not the same thing. 
The governing flow equations were originally developed by writing them in Cartesian (x-y) coordinates, 
then transforming them into generalized (£->?) coordinates. Therefore, any computational coordinate 
system that is used, including the polar coordinate system, must be related to the original Cartesian 
system through the transformation metrics and Jacobian. The parameters P and 8' are -used only to 
initially define the coordinates in the NGEOM = 2 option. Now, if the (x-y) coordinates, no matter 
how they are obtained, are rotated about the Cartesian x axis, the result is a cylindrical coordinate co- 


26 The distinction between the computational coordinate system and the computational mesh is described in Section 
2.2 of Volume 2. 


196 4.0 Proteus Subprograms: GEOM 


Proteus 2-D Programmer's Reference 



ordinate system with y representing the radius r. Thus, the axisymmetric flow option can be used with 
any of the coordinate system options. The polar coordinate option wnuld be useful, for instance, for 
flow over a sphere. 

2. An error message is generated and execution is stopped if an illegal coordinate system option is speci- 
fied. 

3. With the NGEOM = 10 option, an error message is generated and execution is stopped if N G \ and/or 
Ncn. are greater than the dimensioning parameters NIP and or N2P. 
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Subroutine INIT 

Called by 

Calls 

Purpose 

INITC 


Get user-defined initial flow field. 


Input 


* ICVARS 

Flag specifying which variables are being supplied as initial con- 
ditions by subroutine INIT. 

NIK 

Unit number for namelist input. 

* NOUT 

Unit number for standard output. 

* Nl, N2 

Number of grid points N\ and N 2 , in the £ and r\ directions. 

Output 

P, T, U, V, W 

Initial flow field values of static pressure p , static temperature 7, 
and velocities u , v, and w. 


Description 

Subroutine INIT supplies the user-defined initial flow field. In general, this subroutine will be tailored 
to the problem being solved, and supplied by the user. Details on the variables to be supplied by INIT are 
presented in Section 5.1 of Volume 2. 

A default version of INIT is supplied with Proteus that specifies uniform flow with constant properties 
everywhere in the flow field. The above list of input and output Fortran vanables are for the default version 
of INIT. The default version assumes ICVARS = 2 (the default value), and reads values of pa, Mo, v 0 , w 0 , 
and T 0 from namelist IC. The defaults for these parameters are 1.0, 0.0, 0.0, 0.0, and 1.0, respectively, re- 
sulting in an initial flow field with p = p,, u = v = w = 0, and T = T r . 


Remarks 

1. If a value for ICVARS other than 2 is set in the input, a warning message is generated and ICVARS 
is reset to 2. 

2. Subroutine INIT is a convenient place to specify point-by-point boundary' condition types and values. 
It's often easier to do this using Fortran coding rather than entering each value into the namelist input 
file. 
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Subroutine INITC 

Called by 

Calls 

Purpose 

MAIN 

EQSTAT 

FTEMP 

INIT 

KEINIT 

REST 

TURBBL 

YPLUSN 

Set up consistent initial conditions based on data from INIT. 


Input 

* CMUR 

* CTHREE 

* GAMR 
GC 

* HSTAG 
+ ICVARS 

* IHSTAG 

* IREST 
ITBEG 

* ITURB 

* KBC1, KBC2 
LWSET 


* Nl, N2 
PR 

RGAS 

* RHOR, UR 
INITIAL FLOW FIELD 


Output 

LWALL1, LWALL2 

MUT, MUTL 
RHO, U, V, W, ET 


Constant C^ r in formula for C M . 

Constant Cj in formula for Q. 

Reference ratio of specific heats, y r . 

Proportionality factor g c in Newton's second law. 

Stagnation enthalpy h T used with constant stagnation enthalpy 
option. 

Flag specifying which variables are being supplied as initial con- 
ditions by subroutine INIT. 

Flag for constant stagnation enthalpy option. 

Flag for reading restart file. 

The time level n at the beginning of a run. 

Flag for turbulent flow option. 

Boundary types for the £ and v\ directions. 

Flags specifying how wall locations are to be determined for the 
turbulence model; 0 if wall locations are to be found automatically 
by searching for boundary points where the velocity is zero, 1 if 
input using the LWALL parameters, 2 if input using the IWALL 
parameters. 

Number of grid points N\ and N 2j in the £ and y directions. 
Reference pressure p r . 

Gas constant R. 

Reference density p r and velocity u r . 

From the user-suppled or default version of subroutine INIT. 
The combination of variables supplied by INIT is specified by 
ICVARS. See Section 5.0 of Volume 2 for details. 


Flags specifying wall locations for £ and t] boundaries, if not set 
in input. 

Turbulent viscosity at time levels n and n — 1. 

Initial flow field values of static density p, velocities u , v, and w, 
and total energy E r at time level n . 
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RHOF, UL, VL, WL, ETL Initial flow field values of static density p , velocities u , v, and w, 

and total energy E T at time level n — 1 . 

TL Static temperature T at time level n — 1. 

Description 


Subroutine INITC sets up consistent initial flow field conditions based on the data supplied by sub- 
routine INIT. For restart cases, subroutine REST is called to read the computational mesh and the initial 
flow field. Otherwise, the data supplied by INIT are used to obtain the density p, the velocities w, v, and 
w, and the temperature T. r It then calls FTEMP to compute the laminar viscosity coefficients p { and //, the 
laminar thermal conductivity coefficient and the specific heat coefficients c p and c v . EQSTAT is called 
next to compute the pressure p and to recompute the temperature T. 2Z For turbulent flow, the appropriate 
subroutines are called to compute the effective viscosity and thermal conductivity coefficients using the 
turbulence model specified by the user. And finally, for non-restart cases, the values of the dependent var- 
iables at time level n - 1 are set equal to the values at level 1 . 

The flag ICVARS is used to specify which combination of variables are being supplied by INIT. The 
calculation of p, u, v, w, and T is described below for the different values of ICVARS. In all of the equations 
below, the specific heats are defined by 


c p = & + 

where y r is either specified by the user or computed from the reference temperature T r . 
ICVARS = / 


With this option, the density p, the momentum components pw, pv, and pw, and if IHSTAG = 0 the 
total energy £ r » are supplied by INIT. Thus, the velocity components are simply 


v = 


w — ■ 


pu 

p 

pv 

p 

pw 


If the energy equation is being solved (IHSTAG - 0), the temperature is computed from 


T 


1 T ^ 1/2,2, 2v 

= <rL ~"T (u +v +w) \ 


If the energ> r equation is being eliminated by assuming constant stagnation enthalpy (IHSTAG = 1), the 
temperature is computed from 


T=-^\h T -\{u 2 + y 2 + ^)\ 


21 The calculation of T at this point may be approximate. See Remark 1. 
28 See Remark 1. 
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ICVARS = 2 


With this option, the pressure p and the velocities w, v, and w are supplied by INIT. If the energy 
equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is being elimi- 
nated by assuming constant stagnation enthalpy (IHSTAG = 1), the temperature is computed from 

r= i[* r ~i ( " 2+v2+M;2) ] 

The density is then given by 

P 

p RT 

and the total energy is 

E r = p[cyT + y {u + V 2 + W 2 )J 

ICVARS = 3 

With this option, the density p and the velocities w, v, and w are supplied by INIT. If the energy 
equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is being elimi- 
nated by assuming constant stagnation enthalpy (IHSTAG =1), the temperature is computed from 

T = -jr- ^h T - y {u + v 2 + w 2 ) ] 

The total energy is then 

E r= P[c v r + y (u 1 + v 2 + w 2 )J 

ICVARS = 4 

With this option, the pressure p and the velocities w, v, and w are supplied by INIT. If the energy 
equation is being solved (IHSTAG = 0), the density p is also supplied by INIT. If it is being eliminated 
by assuming constant stagnation enthalpy (IHSTAG = 1), this option is the same as the ICVARS = 2 op- 
tion. If the energy equation is being solved, then, the temperature is 



The total energy is then 

E r= p\tv T + y {U + V 2 + w 2 )J 

ICVARS = 5 

With this option, the static pressure coefficient c p and the velocities u , v, and w are supplied by INIT. 
If the energy equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is 
being eliminated by assuming constant stagnation enthalpy (IHSTAG = 1), the temperature is computed 
from 

r=-^[V-y(^ + V 2 + W 2) ] 

The pressure coefficient is defined by 
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c p 


( P - Pr)Zc 

prfl 2 


The nondimensionalized pressure p = pgJpM ? is thus 

C P , PrSc 


P 2 + 2 

Pr u r 

or, since p r = p r RT r jg c and the nondimensionalized gas constant R = RT r lu}, 


P= 2 +R 


The density is then 


P = 


RT 


and the total energy’ is 


' = P CyT + y (u 2 + v 2 + h’ 2 ) 


ICVARS = 6 

With this option, the pressure p, Mach number M, and flow angles a v and a* are supplied by INIT. If 
the energy equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is 
being eliminated by assuming constant stagnation enthalpy (IHSTAG = 1), the temperature is computed 
from 

7=7 r (l + ^-‘-A/ 2 ) 


where TV = h T jc p . The density is 


P 

p RT 

The flow angles are defined by a v = tan - *(v/w) and a w = tan - The Mach number is defmed by 

M =( — +v + " * 

Solving for u, 

__ i + (v/u ) 2 + (w/uy J 

where ( vju ) 2 — tan 2 a v and (w/w) 2 = tan 2 a*. The remaining velocities are simply 

v = u tan a v 

w = u tan a w 


y r RT 


y r RT 


ni/2 


The total energy is 
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£ r = P [ Cv T + ^(a 2 + v 2 + H> 2 )] 

Remarks 

1. If T is not supplied by INIT, it must be computed from the equation of state. The equation of state 
contains a specific heat coefficient (either c p or c v , depending on whether the stagnation enthalpy is as- 
sumed constant or not.) The first time T is computed in INITC, a constant value of specific heat is 
used, consistent with the reference temperature T r - If the user specified constant specific heat (i.e., a 
value for y r was read in), this is not a problem. However, if the temperature-dependent specific heat 
option is being used (i.e., a value for y r was not read in), the equation of state and the empirical equation 
for specific heat are coupled. For this reason T is recomputed in EQSTAT after the specific heats are 
computed in FTEMP. Ideally, this coupling would be handled by iteration between FTEMP and 
EQSTAT. This is not currently done in Proteus , however. 

2. For options in which the pressure p is specified (ICVARS = 2, 4, and 6), the value supplied by INIT 
is redefined as follows: 



This isjiecessary because input and output values of p are nondimensionalized by the reference pressure 
p r = p r R T r , while internal to the code itself p is nondimensionalized by the normalizing pressure 
p n — pm}. See Section 3.1.1 of Volume 2 for a discussion of the distinction between reference and nor- 
malizing conditions. 

3. With the ICVARS = 6 option, the initial velocity u will be limited to non-negative values. 

4. If non-positive pressures or temperatures were computed in EQSTAT, the Fortran variable INEG will 
be positive. An error message will be printed, including a table showing the location of the non-positive 
values. The calculation will stop in INITC. 

5. An error message is generated and execution is stopped if an illegal value is specified for ICVARS. 

6. An error message is generated and execution is stopped if the value of ITURB does not correspond to 
an existing turbulence model. 
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Subroutine INPUT 

Called by 

Calls 

Purpose 

MAIN 

ISAMAX 

Read and print input, perform various initializations. 


Input 


NIN 

NTP 


NTSEQP 


NIP, N2P 


Unit number for namelist input. 

Dimensioning parameter specifying the maximum number of en- 
tries in the table of time-dependent boundary condition values. 

Dimensioning parameter specifying the maximum number of time 
step sequences for the time step sequencing option. 

Parameters specifying the dimension sizes in the £ and rj di- 
rections. 


Output 

CKMIN 

GAMR 

HSTAG, HSTAGR 
IGAM 

IPRT1A, IPRT2A 
ITDBC 


LWALL1, LWALL2 
LWSET 


MACHR 
MUR, KTR 

NEQ 

NPRT1, NPRT2 
NRW, NET 
NZM, NEN 

PR 

PRLR 
RER, PRR 


Constant (C K/eb ) m m in the Klebanoff intermittency factor. 

Reference ratio of specific heats, y r . 

Dimensionless and dimensional stagnation enthalpy h r for the 
constant stagnation enthalpy option. 

Flag for constant or variable c p , c ,, and y ; 0 if they are to be 
computed as functions of temperature, 1 if they are to be treated 
as constant. 

Indices for printout in the £ and rj directions. 

Flag for time-dependent boundary conditions; 0 if all boundary 
conditions are steady, 1 if any general unsteady boundary' condi- 
tions are used, 2 if only steady and time-periodic boundary con- 
ditions are used. 

Flags specifying wall locations for { and y\ boundaries. 

Flags specifying how wall locations are to be determined for the 
turbulence model; 0 if wall locations are to be found automatically 
by searching for boundary points where the velocity is zero, 1 if 
input using the LWALL parameters, 2 if input using the IWALL 
parameters. 

Reference Mach number M r . 

Reference viscosity coefficient p r and thermal conductivity coeffi- 
cient k r . 

Number of coupled equations being solved, N eq . 

Total number of indices for printout in the £ and rj directions. 
Array indices associated with the dependent variables piv and Ej. 

Array indices associated with the swirl momentum and energy 
equations. 

Reference pressure p T . 

Reference laminar Prandtl number Pn r . 

Reference Reynolds number Re r and Prandtl number Pr r . 
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RGAS 

UR 


Gas constant /?. 
Reference velocity u r . 


Description 

Subroutine INPUT performs various input and initialization functions. It first reads the title and 
namelist input from the standard input file. Namelist RSTRT is read first, followed by namelist 10. If 
IUNITS = 1, indicating reference conditions will be specified in SI units, various default values and con- 
stants are redefined to be consistent with SI units. The remaining namelists are then read. 

Next, the flags controlling the time step cycling and the convergence testing method are redefined, if 
necessary, to be consistent with each other. The number of equations being solved, and the array indices 
corresponding to the energy and swirl momentum equations, are then determined based on the values of 
IHSTAG and ISWIRL. A flag is set if time- dependent boundary conditions are being used. If the thin- 
layer option is being used, the flags ITXI and ITETA used in the Baldwin-Lomax turbulence model are 
automatically set equal to values consistent with the thin-layer approximation. The LWSET flags, which 
specify how wall locations are to be determined for the turbulence model, are defined based on the default 
and input values of the LWALL and IWALL parameters. If the user did not specify a value for 
it is set to the default value, which depends on the turbulence model being used. 

Next, if frequency of printout in the £ and rj directions is being set by the input arrays IPRT1 and 
IPRT2, the corresponding grid indices are stored in arrays IPRT1A and IPRT2A. The total number of 
printout locations in each direction is also determined. 

A header is then written to the standard output file, followed by the input namelists. Note that, for 
variables not specified by the user in the input namelists, the values in this printout will be the default val- 
ues. 

Various checks are made for inconsistent or invalid input, and appropriate error or warning messages 
are written. These are described in Section 7.0 of Volume 2. 

Next, any reference or normalizing conditions not already defined are calculated. The reference and 
normalizing conditions are then written to the standard output file, with the appropriate units. See Section 
3.1.1 of Volume 2 for a discussion of the distinction between reference and norm alizin g conditions. 

Remarks 

1. The Cray search routine ISAMAX is used in the input consistency check to determine whether any 

implicit artificial viscosity coefficients are non-zero. 
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Function ISAMAX (N.V.INC) 

Called by 

Calls 

Purpose 

BLOUTl 

BLOUT2 

CONV 

FILTER 

INPUT 

RESID 

TIMSTP 


Find the first index corresponding to the largest absolute value of the 
elements of a Fortran vector. 


Input 

N Number of elements to process in the vector (i.e., 

N = vector length if INC = 1, N = (vector length)/ 2 if INC = 2, 
etc.). 

V Vector to be searched. 

Skip distance between elements of V. For contiguous elements, 

INC = 1* 


Output 

ISAMAX 


First index corresponding to the largest absolute value of the ele- 
ments of V that were searched. 


Description 

Function ISAMAX finds the first index corresponding to the largest absolute value of the elements of 
a vector. For a one-dimensional vector, the use of ISAMAX is straightforward. For example, 

imax = isamaxCnp , v, 1 ) 

sets IMAX equal to the index I corresponding to the maximum value of V(I) for I = 1 to NP. 

A starting location can be specified, as in 

imax = 4 + isamaxCnp- 4 , vC 5) , 1) 

which sets IMAX equal to the index I corresponding to the maximum value of V(I) for I = 5 to NP. 

Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory, and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDIM2, then 

imax = isamax(ndiml*ndim2,a, 1 ) 

sets IMAX equal to the one-dimensional index corresponding to the maximum value of A(I,J) for all I and 
J. The maximum value of A can then be referenced as A(IMAX,1). 

One dimension at a time can also be searched. For example, 
imax = isamaxCndiml ,a( 1 ,5) , 1) 

sets IMAX equal to the index I corresponding to the maximum value of A(I,5) for I varying from 1 to 
NDIM1. Similarly, by specifying a skip increment, 
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jmax = isamax(ndim2 , a( 5 , j ) ,ndiml ) 

sets JMAX equal to the index J corresponding to the maximum value of A(5,J) for J varying from 1 to 
NDIM2. 

Remarks 

1. ISAMAX is a Cray search routine (Cray Research, Inc., 1989b). 
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Function ISAMIN (N,V,INC) 

Called by 

Calls 

Purpose 

BLOUTl 

BLOUT2 


Find the first index corresponding to the smallest absolute value of the 
elements of a Fortran vector. 

Input 

N 


Number of elements to process in the vector (i.e., 
N = vector length if INC =1, N = (vector length) /2 if INC = 2, 
etc.). 

V 


Vector to be searched. 

INC 


Skip distance between elements of V. For contiguous elements, 
INC = 1. 

Output 



ISAMIN 


First index corresponding to the smallest absolute value of the el- 


ements of V that were searched. 


Description 

Function ISAMIN finds the first index corresponding to the smallest absolute value of the elements of 
a vector. It is used in exactly the same way as IS AM AX. 

Remarks 

1. ISAMIN is a Cray search routine (Cray Research, Inc., 1989b). 
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Function ISRCHEQ (N,V, INC, VALUE) 

Called by 

Calls 

Purpose 

BCGEN 

BLIM 

BLIN2 

BLOUT1 

BLOUT2 

FILTER 


Find the first index in a vector whose element is equal to a specified 
value. 


Input 

N Number of elements to process in the vector (i.e., 

N = vector length if INC =1, N = (vector length)/2 if INC = 2, 
etc.). 

V Vector to be searched. 

INC Skip distance between elements of V. For contiguous elements, 

INC = 1. 

VALUE Value to be' searched for in the vector V. 

Output 

ISRCHEQ First index, of the elements of V that were searched, whose ele- 

ment is equal to the value V. If the value V is not found, the re- 
turned value will be N + 1. 

Description 

Function ISRCHEQ finds the first index in a vector whose element is equal to a specified value. For 
a cne-dimensional vector, the use of ISRCHEQ is straightforward. For example, 

ival = isrcheqCnp , v, 1 , val ) 

searches V(I), for 1=1 to NP, for the value VAL, and sets IVAL equal to the first index I for which 
V(I) = VAL. If the value VAL is not found, IVAL will be equal to NP 4- 1. 

A starting location can be specified, as in 

ival = 4 + isrcheq(np-4 , v(5) , 1 , val) 

which searches V(I), for I = 5 to NP, for the value VAL. 

Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory, and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDIM2, then 

ival = isrcheq(ndiml*ndim2 ,a , 1 , val) 

searches A(IJ), for all I and J, for the value VAL, and sets IVAL equal to the corresponding one- 
dimensional index. The desired indices in A can then be recovered from 

i = mod( ival-1 ,ndiml ) + 1 
j = Cival-l)/ndiml + 1 
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One dimension at a time can also be searched. For example, 

ival = isrcheqCndiml , a( 1 , 5) , 1 , val) 

searches A(I,5), for I = 1 to NDIM1, for the value VAL. Similarly, by specifying a skip increment, 

jval = isr cheqC ndim2 , a( 5 , j ) ,ndiml , val ) 
searches A(5,J), for J = 1 to NDIM2, for the value VAL. 

Remarks 

1. ISRCHEQ is a Cray search routine (Cray Research, Inc., 1989b). 
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Subroutine KEINIT 

Called by 

Calls 

Purpose 

IMTC 

PRODCT 

TURBBL 

YPLUSN 

Get user-defined initial conditions for k and £. 


Input 


* CMUR 

* CTHREE 
DUMMY 
MUT 

* Nl, N2 

VORT 

YPLUSD 

Output 

E, EL 
KE, KEL 
MUTL 


Description 


Constant in formula for C M . 

Constant C 3 in formula for C u . 

Distance to the nearest solid wall. 

Turbulent viscosity /i, at time level n . 

Number of grid points N\ and N 2 , in the £ and tj directions. 
Production rate of turbulent kinetic energy. 
Nondimensional distance y + from the nearest solid wall. 


Turbulent dissipation rate c at time levels n and n — 1. 
Turbulent kinetic energy k at time levels n and n — 1. 
Turbulent viscosity /z f at time level n— 1. 


Subroutine KEINIT supplies the user-defined initial values of the turbulent kinetic energy k and the 
turbulent dissipation rate £. In general, this subroutine will be tailored to the problem being solved, and 
supplied by user. Details on the variables to be supplied by KEINIT are presented in Section 5. 1 of Volume 

2 . 


A default version of KEINIT is supplied with Proteus that computes the initial values of k and e using 
the assumption of local equilibrium (dissipation equals production.) The above list of input and output 
Fortran variables are for the default version of KEINIT. 

The steps involved in the default version of KEINIT are described below. 

1. Initialize k and e to zero. 

2. Call TURBBL to compute turbulent viscosity values and to locate solid walls in the computational 
domain. 

3. Call YPLUSN to compute y + and the minimum distance to the nearest solid wall. 

4. Call PRODCT to compute the production rate of turbulent kinetic energy. 

5. Compute k and z using 

£ = 

Re r p 
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6. Set the values of k , e, and f. i c at time level n — 1 equal to their values at time level n. 

Remarks 


1. The scratch array DUMMY, from the common block DLMMY1, is used to store the values of the 
minimum distance to the nearest wall. The array is filled in subroutine YPLUSN. 

2. The Fortran array VORT, from the common block TURB1, is used to store the values of the pro- 
duction rate of turbulent kinetic energy. The array is filled in subroutine PRODCT. 
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Program MAIN 

Called by 

Calls 

Purpose 


BCSET 

CONV 

EQSTAT 

EXEC 

FTEMP 

GEOM 

INITC 

INPUT 

OUTPUT 

OUTW 

PLOT 

PRTHST 

REST 

TBC 

TIMSTP 

TREMAIN 

TURBBL 

TURBCH 

Manage overall solution. 


Input 


None. 


Output 

IT 

Current time step number n. 

ITEND 

Final time step number. 

ITSEQ 

Current time step sequence number. 

TAU 

Current time value r. 


Description 

The MAIN program is used to manage the overall solution. The steps involved are described below. 
Preliminary Steps 

1. Call INPUT to read and print the input, and perform various initialization procedures. 

2. Unless this is a restart case, call GEOM to get the computational coordinates and metric data. 

3. Call INITC to get the initial flow field. 

4. Call BCSET to set various boundary 7 condition parameters and flags, and to print the input boundary 
condition types and values. 

5. Initialize the plot file, 29 and, if requested by the user, write the initial or restart flow field into the plot 
file. 

6. If requested by the user, print the initial or restart flow field. 


29 The initialization procedure depends on the type of plot file being written. See the description of subroutine PLOT. 
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7. Compute NTSUM, the maximum total number of marching steps to be taken, and ITEND, the cor- 
responding final index on the time marching loop. Set the initial values of ITSEQ, the time step se- 
quence number, and ITSWCH, the time index for switching to the next sequence, both to zero. 

Time marching loop 

8. Begin the time marching loop. The loop index IT corresponds to the known time level n. Each iter- 
ation of the loop thus corresponds to a step from time level n to n + 1 . 

9. If at the end of a time step sequence, update ITSEQ, the time step sequence number, and 
ITSWCH, the time index for switching to the next sequence. 

10. For the first time step, and every IDTMODth step thereafter, call TIMSTP to compute the new 
time step At. For every time step update the time value t. 

11. If time-dependent boundary conditions are being used, call TBC to set the boundary condition 
values. 

12. Call EXEC to solve the equations. 

13. Call EQSTAT to compute the pressure p and temperature T from the equation of state. If either 
is non-positive, indicating a non-physical solution, skip forward to step 17. 

14. Call FTEMP to compute the laminar viscosities /x/ and the laminar thermal conductivity ki , and 
the specific heats c p and c v . 

15. For turbulent flow, call the appropriate subroutines to' compute the effective viscosity and thermal 
conductivity coefficients using the turbulence model specified by the user. 

16. Every ICHECK time levels, call CONV to check for convergence. 

17. Call TREMAIN to find out how much CPU time remains. 

18. If requested by the user, or if the calculation is converged, or if non-positive pressures or temper- 

atures were computed, or if the job is near the CPU time limit, print the flow field at time level 
*+ 1 . 

19. If requested by the user, or if the calculation is converged, or if non-positive pressures or temper- 
atures were computed, or if the job is near the CPU time limit, write the flow field at time level 
n 4- 1 into the plot file. 

20. If non-positive pressures or temperatures were computed, write an error message showing the lo- 
cation of the non-positive values and skip forward to step 25, ending the calculation. 

21. If the calculation is converged, print a message and skip forward to step 24, ending the calculation. 

22. If the job is near the CPU time limit, print a message and skip forward to step 24, ending the cal- 

culation. 

23. End of time marching loop. Print a message indicating the calculation did not converge. 

Final Steps 

24. If requested by the user, call REST to write the restart file. 

25. If first-order time differencing and steady boundary conditions were used, call PRTHST to print the 
convergence history. 

Remarks 

1. The starting index for the time marching loop is ITBEG. For a non-restart case ITBEG = 1, and thus 
the initial starting flow field is at time level 1. For a restart case ITBEG = n , where n is the time level 
stored in the restart file, and thus the starting flow’ field is the previously computed flow field at time 
level n. 

2. The ending index for the time marching loop is ITEND = ITBEG 4- NTSUM — 1, where NTSUM is 
the total number of time steps to be taken. For a non-restart case, then, the time marches from level 
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1 to level 1 + NTSUM. For a restart case, the time marches from level ITBEG to level 
ITBEG + NTSUM. 

3. The logic involving NTSUM, ITSEQ, and ITSWCH is used to implement the time step sequencing 
option. This allows one CFL number or time increment to be used for a specified number of steps, 
followed by another CFL number or time increment for another specified number of steps, etc. 10 If this 
option is not used, NTSUM is simply equal to NTIME(l) and ITSEQ is always 1. 

4. An error message is generated and execution is stopped if the value of ITURB does not correspond to 
an existing turbulence model. 

5. Although the calculation will stop if p or T < 0, as noted above in step 20, the standard output and plot 
file will include the time level with the non-positive values, if that is consistent with the IPRT and IPLT 
input parameters in namelist IO. The restart file will not be written. 


30 See Section 3.1.9 of Volume 2 for details on how to invoke the time step sequencing option. 
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Subroutine METS 

Called by 

Calls 

Purpose 

GEOM 

REST 

OUTPUT 

Compute metrics of nonorthogonal grid transformation. 


Input 

DXI, DETA 

* IDEBUG 

* IVOUT 

* NOUT 

* Nl, N2 
X, Y 

Output 

ETAX, ETAY, ETAT 
IVOUT 

JI 

XIX, XIY, XIT 

Description 


Computational grid spacing A{ and A*/. 

Debug flags. 

Flags specifying variables to be printed. 

Unit number for standard output. 

Number of grid points \\ and A T 2 , in the { and rj directions. 
Cartesian coordinates a: and y, or cylindrical coordinates x and r. 


Metric coefficients rj x , rf y (or r\ r if axisymmetric), and r\ t . 

Flags specifying variables to be printed (temporarily redefined for 
debug output of metrics.) 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 
Metric coefficients £ y (or if axisymmetric), and 


Subroutine METS computes the metric coefficients and the Jacobian for the generalized nonorthogonal 
coordinate transformation. The metric coefficients are defined in terms of the known (xy) coordinates of 
the computational mesh as: 

?x = J y v 

Zy=- Jx r, 

vx-- J y\ 

Vy = 

^t=-X^x-y^y 
*lt=-x T ri x -y 7 rj y 

where J is the Jacobian of the transformation, given by 

J = ~ = 

The derivatives of x and y with respect to the computational coordinates are computed numerically us- 
ing the same difference formulas as used for the governing equations. At interior points the centered dif- 
ference formula presented in Section 5.0 of Volume 1 is used. At boundaries three-point one-sided 
differencing is used. For {-derivatives at the { = 0 and { = 1 boundaries, 
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df -Vvv d* +1 fw ±2 

~d£ ~ ‘ 2A£ 

where w represents the £-index at the boundary' (i.e., either 1 or N\). Where a ± sign appears, the + sign 

is used at the £ = 0 boundary, and the — sign is used at the £ = 1 boundary. An analogous formula is used 

for ^-derivatives at the y\ = 0 and rj = 1 boundaries. 

Remarks 

1. Since the current version of Proteus is limited to meshes that do not vary with time, the derivatives x T 
and y T are set equal to zero. 

2. This subroutine generates the output for the IDEBUG(7) option. 

3. An error message is generated and execution is stopped if the grid transformation Jacobian J changes 
sign or equals zero. This indicates that the computational mesh contains crossed or coincident grid 
lines. The error message is followed by a printout of the Cartesian coordinates, the Jacobian, and the 
metric coefficients. 
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Subroutine OUTPUT (UEVEU) 


Called by 

Calls 

Purpose 

MAIN 

METS 

PRTOUT 

VORTEX 

Manage printing of output. 


CP, CV 
DTAU 
DUMMY 
DXI, DETA 
E, KE 

ETAX, ETAY, ETAT 

* GAMR 
GC 

* I AX I 

* ISWIRU 

* IVOUT 
JI 

UEVEU 

LWALL1, UWALL2 

* MACHR 
MU, LA, KT 

MUT 

* NOUT 

* Nl, N2 
P, T 
PR 
PRR 

* PRT 
RGAS 

RHO, U, V, W, ET 

* RHOR, TR, UR 
TAU 

X, Y 

XIX, XIY, XIT 


Specific heats c. and c v . 

Time step At. 

A two-dimensional scratch array dimensioned (N1P.N2P). 
Computational grid spacing Ac and At?. 

Turbulent dissipation rate e and kinetic energy k. 

Metric coefficients jj„ rj y (or if axisymmetric), and tj,. 

Reference ratio of specific heats, y r . 

Proportionality factor g c in Newton's second law. 

Flag for axisymmetric flow. 

Flag for swirl in axisymmetric flow. 

Flags specifying variables to be printed. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ ‘. 
Time level being printed. 

Flags specifying wall locations for £ and rj boundaries. 

Reference Mach number M r . 

Effective coefficient of viscosity p, effective second coefficient of 
viscosity /, and effective coefficient of thermal conductivity k. 

Turbulent viscosity coefficient u,. 

Unit number for standard output. 

Number of grid points N\ and iVj, in the £ and >; directions. 

Static pressure p and temperature T. 

Reference pressure p r . 

Reference Prandtl number Pr r . 

Turbulent Prandtl number Pr,. 

Gas constant R. 

Static density p, velocities u, v, and w, and total energy- E T . 
Reference density p r , temperature T,, and velocity u r . 

Time value t. 

Cartesian coordinates x and y, or cylindrical coordinates x and r. 
Metric coefficients ^ (or l, if axisymmetric), and 
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Output 


ATITLE A 20-character title for variable being printed. 

DUMMY A two-dimensional array containing the variable to be printed. 

Description 

Subroutine OUTPUT manages the printing of the standard output. The variables available for printing 
are listed and defined in Table 3-3 of Volume 2. The user- specified array IVOUT controls which variables 
are printed. 

Each variable to be printed is stored, in turn, in the scratch array DUMMY, from the common block 
DUMMY 1. The title printed with the variable is stored in the character array ATITLE. Subroutine 
PRTOUT is then called to execute the actual write statements. 


Remarks 


1 . A warning message is printed if a non-existent output variable is requested. The printout will continue 
with the next requested output variable. 

2. For output options 30, 31, 34, and 35, involving the pressure /?, the value stored internally in the 
Proteus code is redefined as follows: 


P=P 


2 

Pr“r 

PrZc 


This is_necessary because input and output values of p are nondimensionalized by the reference pressure 
p r — p r RT r , w r hile internal to the code itself p is nondimensionalized by the normalizing pressure 
p n — p r u}. See Section 3.1.1 of Volume 2 for a discussion of the distinction between reference and nor- 
malizing conditions. 

3. The definitions of k { and k t (IVOUT = 92 and 102) assume a constant turbulent Prandtl number is 
being specified in namelist TURB. If the input value of PRT < 0, indicating the use of a variable tur- 
bulent Prandtl number, the printed values of ki and k t will be incorrect. 
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Subroutine OUTW (LEVEL) 


Called by 


MAIN 


Purpose 


Compute and print parameters at boundaries. 


DXI, DETA 
ETAX, ETAY 


IWOUT1, IWOUT2 


LEVEL 
MU, KT 
NOUT 
Nl, N2 
P, T 


RHOR, UR 

u, v, w 
x, Y 

XIX, XIY 


Output 


Specific heat c p . 

Computational grid spacing A£ and Arj. 

Metric coefficients r\ x and rj y (or v\ r if axisymmetric.) 
Proportionality factor g c in Newton's second law. 

Flags specifying for which boundaries parameters are to be 
printed. 

Time level being printed. 

Effective coefficients of viscosity /x, and thermal conductivity k. 
Unit number for standard output. 

Number of grid points N\ and N 2 , in the £ and rj directions. 

Static pressure p and temperature T. 

Reference pressure p r . 

Reference Prandtl number Pr r . 

Reference Reynolds number Re r . 

Reference density p„ and velocity u,. 

Velocities u, v, and w. 

Cartesian coordinates x and y, or cylindrical coordinates x and r. 
Metric coefficients and l y (or £ r if axisymmetric.) 


None. 


Description 

Subroutine OUTW computes and prints various parameters along the computational boundaries. The 
variables available for printing are listed and defined in Table 3-3 of Volume 2. The user-specified arrays 
IWOUT1 and IWOUT2 specify at which boundaries parameters are printed, and whether normal deriva- 
tives are to be computed using two-point or three-point one-sided differencing. 

The parameters printed are the Cartesian coordinates x and y, the static pressure p t the skin friction 
coefficient C/, the shear stress the static temperature 7, the heat transfer coefficient h, the heat flux q w , 
and the Stanton number St. Note that some of these are meaningful only if the boundary is a solid wall. 


The skin friction coefficient is defined as 


1 2 

-> Pr u r 


Re r 11 dn 
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where the overbar denotes a dimensional quantity.^ In this equation dVtjdn represents the normal derivative 
of the tangential velocity, with the normal vector n directed into the flow field. 

For a l boundary, the tangential velocity for non-swirl cases is simply 

V = V 

y t Y rj 

where V n is the velocity in the rj direction. For axisymmetric cases with swirl, the tangential velocity on a 
£ boundary is computed as 

K, = n /kJ + w 2 

where w is the swirl velocity. From the description of subroutine BCVDIR, 

1 


K n— 


where 


m ■ 


Using the equations in Section 6.4 of Volume 1, dV,jdn for a s boundary is thus computed as 


9V, =+ 1 


dV. , , dV. 

(%x + £y) + + ty^y) 


dn - m 

where the + sign is used at the £ = 0 boundary, and the - sign is used at the £ = 1 boundary. 
For an rj boundary, the tangential velocity for non-swirl cases is 

v,= v f 

and for axisymmetric cases with swirl, it is computed as 


V'-yfPf+W 


2 , 2 
5 


The £ velocity is given by 


where 


Thus, for an >; boundary', 


= by u + ^x v ) 


m = vAx + 


dV t = + i 


dn ~ m 

The shear stress t* is defined as 

r w is thus nondimensionalized by /z r w r /Lr. 
The heat flux q w is defmed as 


dV t , 2 2x 

(£x*?jc + €y*1y) + fly (^x + *ly) 






3 Il 

dn 
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, 6T 
q w =~k 

v'here dTjdn represents the normal derivative of the temperature. For a f boundary, 


dn ~~ m di ' ' x + + dr\ ^ xVx + 


« = v d + d 


For an boundary, 


where 


■Sr = 1 ^ [ ■fr + + % ({ ^ + w] 


/ 2 . 2 
"* = V *hc + 7y 


q w is thus nondimensionalized by k r T r jL r . 


The heat transfer coefficient h is defined as 


T- 1 7-1 


This is the nondimensional form of the equation 


_ z 1L 

Y 4w _ dn 
T - T r T -T r 


h is thus nondimer "ionalized by k r \L r . 
The Stanton number Sr is defined as 


S, i — = L 

^ Fi r 


y r u r C p C P Re r Pr r 
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Subroutine PAK (IDIR,NOLDl,NOLD2) 

Called by 

Calls 

Purpose 

GEOM 

CUBIC 

ROBTS 

Manage packing and/or interpolation of grid points. 

Input 



IDIR 


Direction flag; 1 if grid points are being redistributed in the c di- 
rection, 2 if in the rf direction. 

* IPACK 


Flags for grid packing option. 


NOLD1, NOLD2 Number of grid points in the £ and rj directions in the original 

grid. 

Unit number for standard output. 

Number of grid points A\ and A' 2 , in the £ and y directions in the 
new grid. 

An array specifying the location and amount of packing. 

Cartesian coordinates x and y, or cylindrical coordinates x and r, 
in the old grid. 


Cartesian coordinates x and y, or cylindrical coordinates x and r, 
in the new grid. 


* NOUT 

* Nl, N2 

* SQ 
X, Y 

Output 

X, Y 


Description 

Subroutine PAK manages the redistribution of the user- specified points in the computational coordinate 
system. It is c^Ued whenever grid packing is used. It is also called when interpolation is necessa-y because 
the computational coordinates are specified by reading them from a separate file (the NGEOM = 1 O option 
in subroutine GEOM), and the number of points in the file is different from the number of points to be 
used in the calculation. PAK is called once for each direction in which points are being redistributed. 

The steps involved in subroutine PAK are described below. For clarity, this discussion assumes 
IDIR = 1 (i.e., we are redistributing points in the £ direction.) An exactly analogous procedure is used for 
IDIR = 2. 

1. Set KNEW and NOLD equal to the index limits in the £ direction for the new and old grids. Also set 
NOPP equal to the index limit in the >7 direction for the old grid. 

2. Get (a P ) h the normalized physical arc length along a coordinate line in the £ direction, from the begin- 
ning of the line to each grid point in the new grid. The normalizing distance is the total arc length of 
the line, and thus these arc lengths apply to any coordinate line in the £ direction. If the points are not 
being packed in the £ direction, but only interpolated, then 

t \ /- 1 

[ a?)i ~ NNEW - 1 

for i = 1 to NNEW. In the new grid, the points will thus be evenly distributed in physical space along 
each coordinate line in the £ direction. If the grid points are being packed in the £ direction, subroutine 
ROBTS is called to compute (<a>>), from the packing parameters specified by the user. 

3 . Begin loop from 10 PP = 1 to NOPP. This loop thus runs over the points in the rj direction in the old 
grid. We will be redistributing points in the £ direction for each rj value in the old grid. 
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4 . 


Get (aup)n the normalized physical arc length along a coordinate line in the £ direction, from the 
beginning of the line to each grid point in the old grid. These values are found by first computing 
the non-normalized arc lengths, as follows: 


( a up)\ “ 0 

( a up)i = (°up)i - i + V ( x ij ~~ x i~ l t j ) 2 + tyj ~yi-\ ,y ) 2 


for i = 2 to NOLD1. These values are normalized by setting 


( a vp)i — 


(^U/OnOLDI 


for / = 1 to NOLD1. To eliminate any problems with roundoff error, (<3 L ^) N oldi is explicitly set 
equal to 1. 

5. Given x and a VP for the old grid, and a P for the new grid, call CUBIC to interpolate for x in the 
new grid. Similarly interpolate for y . 

6. Redefine the Fortran variables X and Y as the x and y coordinates in the new' grid. 

7. End of loop over the points in the y direction in the old grid. 


Remarks 


1. In the Fortran code, the comments sometimes refer to the ''packing" direction. This terminology ac- 
tually means the direction in which grid points are being redistributed, even if they are not being packed 
but only interpolated. Similarly, references to the "packed" and "unpacked" grid actually mean the new 
and old grids. 

2. An error message is generated and execution is stopped if an invalid grid packing option is requested. 
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Subroutine PERIOD 

Called by 

Calls 

Purpose 

EXEC 

EXECT 


Define extra line of data for use in computing coefficients for spatially 
periodic boundary conditions. 


CP, cv 
E, EL 

ETAX, ETAY, ETAT 

JI 

KBCPER 

KE, KEL 
MU, LA, KT 


MUT, MUTL 
NPT1, NPT2 


* Nl, N2 
P, T 

RHO, U, V, W, ET 
RHOL, UL, VL, WL, ETL 
TL 

XIX, XIY, XIT 
Y 


Specific heats c p and c v at time level n . 

Turbulent dissipation rate t at time levels n and n— L 

Metric coefficients t] x , rj y (or yj r if axisymmetric), and r \ t . 

Inverse Jacobian of the nonorthogonal grid transformation, J~K 

Flags for spatially periodic boundary conditions in the £ and rj 
directions; 0 for non-periodic, 1 for periodic. 

Turbulent kinetic energy k at time levels n and rt — L 

Effective coefficient of viscosity p , effective second coefficient of 
viscosity A, and effective coefficient of thermal conductivity k. 

Turbulent viscosity p t at time levels n and n — 1. 

N\ and N 2 for non-periodic boundary conditions, N\ + 1 and 
N 2 + 1 for spatially periodic boundary conditions in £ and >7. 

Number of grid points N\ and N 2i in the £ and r] directions. 

Static pressure p and temperature T at time level n. 

Static density p, velocities u , v, and w, and total energy Er at time 
level n . 

Static density p, velocities u , v, and w, and total energy E T from 
previous ADI sweep. 

Static temperature T from previous ADI sweep. 

Metric coefficients (or £ r if axisymmetric), and £ r . 

Radial coordinate r for axisymmetric flow. 


Output 

All of the flow and metric-related input parameters listed above, at i = N\ 4- 1 for periodic boundary 
conditions in the £ direction, and at j = N 2 + 1 for periodic boundary conditions in the r\ direction. 

Description 

Subroutine PERIOD adds, in effect, an additional set of points at / = N\ + 1 for periodic boundary 
conditions in the <* direction, and at j — N 2 4 1 for periodic boundary conditions in the rj direction. This 
allows us to use central differencing in the periodic direction, at i = N\ and/or j ~ N 2i computing the coeffi- 
cient submatrices and source term subvector in the same way as at the interior points. 31 

For periodic boundary conditions in the f direction, the extra points are added by setting 


31 See Section 7.2.2 of Volume 1 for details on the solution procedure for spatially periodic boundary conditions. 
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where j = 1 to A 2 , and / represents one of the flow variables or metrics. Similarly, extra points are added 
at (/, I V 2 + 1) for periodic boundary conditions in the rj direction. 


226 


4.0 Proteus Subprograms: PERIOD 


Proteus 2-D Programmer's Reference 



Subroutine PLOT (LEVEL) 

Called by 

Calls 

Purpose 

MAIN 


Write files for post-processing by CONTOUR or PLOT3D plotting 
programs. 

Input 



CP, cv 


Specific heats c p and c v . 

ETAX, ETAY 

Metric coefficients y\ z and v\ y (or rj r if axisymmetric). 

♦ GAMR 


Reference ratio of specific heats, y r . 

GC 


Proportionality factor g c in Newton's second law. 

♦ IPLOT 


Flag specifying type of plot file to be written. 

LEVEL 


Time level to be written into the file (0 for initialization, and — 1 
to read the scratch file and write XYZ and Q files with the 
IPLOT = — 3 option). 

* LR, UR, RHOR, TR 

Reference length Lr , velocity u r , density p ry and temperature T r . 

* MACHR 


Reference Mach number M r . 

* NOUT 


Unit number for standard output. 

* NPLOT 


Unit number for writing CONTOUR file, or PLOT3D Q file. 

* NPLOTX 


Unit number for writing PLOT3D XYZ file. 

* NSCR1 


Unit number for scratch file. 

♦ Nl, N2 


Number of grid points N\ and N 2 , in the £ and r\ directions. 

P, T 


Static pressure p and temperature T. 

PR 


Reference pressure p r . 

♦ RER 


Reference Reynolds number Re r . 

* RG 


Dimensional gas constant R . 

RGAS 


Dimensionless gas constant /?. 

RHO, U, V, 

W, ET 

Static density p, velocities u , v, and w , and total energy £ r - 

TAU 


Current time value t. 

♦ TITLE 


Case title. 

X, Y 


Cartesian coordinates x and y, or cylindrical coordinates x and r . 

XIX, XIY 


Metric coefficients £ x and £ y (or £ r if axisymmetric). 


Output 

None. 


Description 

Subroutine PLOT writes a file or files, commonly called plot files, for post-processing by the CON- 
TOUR or PLOT3D plotting programs. The type of files written is controlled by the user- specified pa- 
rameter IPLOT. The format and contents of the different types of plot files are described in detail in Section 
4.2 of Volume 2. They are therefore described only briefly here. 
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CONTOUR Plot File (I PLOT = ± I) 


If IPLOT = 1, a CONTOUR plot file is written with the title and reference conditions included at each 
time level. The value of n is written into the header for each time level, but r, the time itself, is not written 
into the file. No initialization step is necessary. 

If IPLOT = — 1, a CONTOUR plot file is also written, but the title and reference conditions are written 
only at the beginning of the file. In addition the time r Uj is written into the file at each time level. In this 
case the initialization step consists of writing the title and reference conditions at the beginning of the file. 

PLOT 3D i WHOLE Plot Files (IPLOT = 2) 

If IPLOT = 2, XYZ and Q files are written in PLOT3D/WHOLE format. The X YZ file is written only 
during the initialization step. The Q file is written at each time level requested by the user. The Q file will 
thus consist of multiple sets of data, each containing the computed results at a single time level. The time 
r u is written into the header for each set of data in the Q file. Since Proteus 2-D is two-dimensional, N3, 
the number of points in the z direction in the XYZ and Q files, is set equal to 1. 

PLOT3D! PLANES Plot Files (IPLOT = 3) 

If IPLOT = 3, XYZ and Q files are written in PLOT3D/PLANES format. Since Proteus 2-D is two- 
dimensional, N3, the number of points in the z direction in the XYZ and Q files, is set equal to 1. This 
makes the XYZ and Q files identical to those created using the IPLOT = 2 option. 

PLOT3DI PLANES Plot Files (IPLOT = - 3) 

The files created with this option are similar to those created with the IPLOT = 3 option, except the 
time t it j is written into the z slot in the XYZ file, and the number of points in the "z" direction is set equal 
to the number of time levels in the XYZ and Q files. 

However, because the calculation may converge or become non-physical, the number of time levels that 
end up being written into the files is not known until the end of the Proteus run. Therefore, as the calcu- 
lation proceeds the results are actually written into a scratch file. N3, the counter for the number of time 
levels, is set equal to zero in the initialization step and updated each time a time level is added to the scratch 
file. At the end of the Proteus run the scratch file is read and the XYZ and Q files are written. 

PLOT2D Plot Files (IPLOT = 4) 


If IPLOT = 4, XYZ and Q files are written in PLOT3D's 2D format. The XYZ file is written only 
during the initialization step. The Q file is written at each time level requested by the user. The Q file will 
thus consist of multiple sets of data, each containing the computed results at a single time level. The time 
t u is written into the header for each set of data in the Q file. 

Remarks 


1. For the CONTOUR plot file, the IPLOT = — 1 option is the better one to use. The IPLOT = 1 op- 
tion is included only to be consistent with the various PLOT3D options. 

2. In defining the pressure to be written into the CONTOUR plot file, the value stored internally in the 
Proteus code is redefined as follows: 


P=P 


2 

Pr u r 

Prgc 


This isjiecessary because input and output values of p are nondimensionalized by the reference pressure 
p r = p r RT n while internal to the code itself p is nondimensionalized by the normalizing pressure 
p n — p r u*. See Section 3.1.1 of Volume 2 for a discussion of the distinction between reference and nor- 
malizing conditions. 
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3. The current version of PLOT3D does not work for multiple time levels, although future versions might. 
Thus the IPLOT = 2, 3, and 4 options, while containing multiple time levels, cannot easily be used to 
create plots showing the tune development of the flow. You can, however, fake it out using the 
IPLOT = - 3 option. With this option, plots can be generated at different time levels by plotting at 
different PLOT3D "z“ stations. 

4. Note that the time t u written into the Q file header with the IPLOT = 2, 3, and 4 options is the time 
at the point c, = q = 0. If the input variable IDTAU = 5 or 6, t will vary in space and therefore 

T,,y#TU- 

5. To save storage, the common variable AMAT1, which is normally used for the subdiagonal submatrix 
of coefficients in the block tridiagonal system of equations, is equivalenced to the local three- 
dimensional variable Q used to store the Q variables that are written into the PLOT3D Q file. 

6. PLOT3D assumes that velocity is nondimensionalized by the reference speed of sound a, = {y r R Ti) 1/2 , 
and that energy is nondimensionalized by p-a; . In Proteus these variables are nondimensionalized by 
u, and p , it- . That is why the reference Mach number M, appears in the definitions of Q(,,2) through 

Q(.,5). 

7. An error message is generated and execution is stopped if an illegal plot fde option is requested. 
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Subroutine PRODCT 


Called by 


KEINIT 

TURBCH 



Purpose 


Compute production term for the k-z turbulence model. 


DXI, DETA 
ETAX, ETAY 
I AX I 
MUT 
Nl, N2 
RER 
U, V, W 
XIX, XIY 


Output 


PONE, PTWO 
VORT 


Description 


Computational grid spacing and &rj. 

Metric coefficients rj x and rj y (or rj r if axisymmetric). 

Flag for axisymmetric flow. 

Turbulent viscosity p t at time level n. 

Number of grid points A'i and N in the £ and rj directions. 
Reference Reynolds number Re r . 

Velocities u , v, and w at time level n . 

Metric coefficients and £, (or £ r if axisymmetric). 

Radial coordinate r for axisymmetric flow. 


Parts 1 and 2 of the production rate of turbulent kinetic energy. 
Production rate of turbulent kinetic energy. 


Subroutine PRODCT computes the turbulent kinetic energy production rate using 




where, for 2-D planar flow, 




p _ du dv 

2 dx dy 


and for axisymmetric flow, 


= 2 ’(l7) 2 + (f) 2 + (^) 2 ]-T(t + t^) 2 + ( 

+ dr)Ti (^)] 2 


du dv 
dr dx 


p _ du dv v 
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To evaluate the spatial derivatives, the centered difference formulas presented in Section 5.0 of Volume 1 
are used at interior points, and second-order one-sided difference formulas are used at boundary points. 

Remarks 

1. To save storage space, this subroutine uses the Fortran variable VORT to store the turbulent kinetic 
energy production rate. Care must be taken when this subroutine is used together with subroutine 
VORTEX. 
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Subroutine PRTHST 

Called by 

Calls 

Purpose 

MAIN 


Print convergence history. 


Input 


+ ICHECK 
* IREST 

IT 

ITBEG 

NC, NXM, NY\1, NZM, NEN 


N EQ 

* NHIST 

* NHMAX 

* NOUT 


Convergence checking interval. 

Flag for restart file; 0 for no restart file, 1 to write a restart file, 2 
to read and write a restart file. 

Last computed time step number n. 

The time level n at the beginning of a run. 

Array indices associated with the continuity, x- momentum, 
y-momentum (or r-momentum if axisymmetric), swirl momen- 
tum, and energy equations. 

Number of coupled equations being solved, N eq . 

Unit number for convergence history file. 

Maximum number of time levels allowed in the printout of the 
convergence history file (not counting the first two, wdiich are al- 
ways printed.) 

Unit number for standard output. 


Output 

None. 

Description 

Subroutine PRTHST prints the convergence history as part of the standard output. The information 
is obtained from the unformatted convergence history 7 file written in subroutine RESID. The parameters 
printed are described in Section 4.1.6 of Volume 2, and the unformatted convergence history 7 file is described 
in Section 4.3 of Volume 2. To avoid undesirably long tables, the convergence parameters are printed at 
an interval that limits the printout to NHMAX time levels. As described in Section 4.1.6 of Volume 2, 
however, they are always printed at the first two time levels. 
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Subroutine PRTOUT (ATITLE, LEVEL, AVAR) 

Called by 

Calls 

Purpose 

OUTPUT 


Print output. 

Input 



ATITUE 


A 20-character title for variable being printed. 

AVAR 


A two-dimensional array containing the variable to be printed. 

DTAU 


Time step At. 

* IDTAU 


Flag for time step selection method. 

♦ IPRT1A, IPRT2A 

Indices for printout in the £ and rj directions. 

UEVEU 


Time level to be printed. 

* UR, UR 


Reference length Lr and velocity 1 ^. 

* NOUT 


Unit number for standard output. 

NPRT1, NPRT2 

Total number of indices for printout in the £ and rj directions. 

TAU 


Current time value r. 

Output 



None. 



Description 




Subroutine PRTOUT performs the actual printing of the standard output file. It prints the variable 
AVAR, with the title ATITLE. The output is printed in columns running in the t] direction. The rows 
run in the f direction. If the results at every grid point are printed, there will be a total of A\ columns, each 
with N 2 rows. The columns are grouped in super-rows of up to 10 columns each. 

The steps involved are as follows: 

1. Set the total number of columns, and rows per super-row. 

2. Redefme AVAR, the input array containing the variable to be printed, including only the elements re- 
quested. 

3. Determine the number of super-rows. If NCOL is not exactly divisible by 10, the last super-row will 
have less than 10 columns. 

4. Print the title for the variable. If the time step is constant in space, the dimensional time t and time step 
At are printed with the title. 

5. Begin loop over the number of super-rows. 

6. Set NCI and NC2 equal to the number of the first and last column in this super-row. (I.e, for the 
first super-row NCI and NC2 will be 1 and 10, for the second they will be 1 1 and 20, etc. For the 
last super-row, NC2 will be NCOL.) 

7. Print the heading for the super-row, labeling each column with the proper f index. 

S. Print the super-row itself, labeling each row with the proper ?? index. 

9. End of loop over the number of super-rows. 
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Subroutine RESID (IAVR, S, NVD, NPTSD) 

Called by 

Calls 

Purpose 

EXEC 

ISAMAX 

SASUM 

SNRM2 

Compute residuals and write convergence history file. 


Input 

CHGAVG 

CHGMAX 

DTAU 

DUMMY 

* EPS 
IAVR 

* IAV2E, IAV4E 

* ICHECK 

* ICTEST 

* IDTAU 

* IHSTAG 

* ISWIRL 
IT 

ITBEG 

* LR, UR 
NEQ 

* NHIST 

* NITAVG 
NPT1, NPT2 

NTOTP 

NVD, NPTSD 

* Nl, N T 2 
NIP, N2P 

S 

TAU 


Maximum change in absolute value of the dependent variables, 
averaged over the last NITAVG time steps, AQ m . 

Maximum change in absolute value of the dependent variables 
over previous time step (or NITAVG — 1 time steps if 
ICTEST = 2), AQ mcx . 

Time step At. 

A two-dimensional scratch array. 

Convergence level to be reached, e. 

Flag specifying whether residual is computed without or with the 
artificial viscosity terms; 1 for without, 2 for with. 

Flags for second- and fourth-order explicit artificial viscosity. 

Convergence checking interval. 

Flag for convergence criteria to be used. 

Flag for time step selection method. 

Flag for constant stagnation enthalpy option. 

Flag for swirl in axisymmetric flow. 

Current time step number n. 

The time level n at the beginning of a run. 

Reference length L r and velocity u r . 

Number of coupled equations being solved, N eq . 

Unit number for convergence history file. 

Number of time steps in moving average convergence test. 

N\ and N 2 for non-periodic boundary conditions, + 1 and 
N 2 + 1 for spatially periodic boundary conditions in £ and r\. 

Dimensioning parameter specifying the storage required for a full 
two-dimensional array (i.e., NIP x N2P). 

Leading two dimensions for the array S. 

Number of grid points N\ and .V 2 , in the £ and rj directions. 

Parameters specifying the dimension sizes in the £ and rj di- 
rections. 

Source term subvector S for first ADI sweep. 

Current time value t. 
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Output 


LRMAX 

RESAVG 

RESL 2 

RESMAX 


Grid indices i and j, in the q and yj directions, corresponding to the 
location of RESMAX. 

The average absolute value of the residual, R^. 

The L 2 norm of the residual, R L2 . 

The maximum absolute value of the residual, R™ x . 


Description 

Subroutine RESID computes various measures of the residual, and writes the convergence history file. 

For problems without artificial viscosity, the steady-state form of the governing partial differential 
equations can be written as 


A 



3F SEy djy 

dfj d£ drj 


The residual is defined as the number resulting from evaluating the right hand side of the above equation. 
For first-order time differencing, this is simply the source term for the first ADI sweep, divided by the time 
step At . 32 The residual at a specific grid point and time level is thus 

Rlj = Sljl{Ar)lj 


where S is the source term for the first ADI sweep. Separate residuals are computed for each governing 
equation. 

Adding artificial viscosity, however, changes the governing equations. With artificial viscosity, the dif- 
ference equations actually correspond to the following differential equations at steady state. 33 


A 



J 


A 



(A£) 2 

(A£) 4 


5E y d¥y 


gVo) 

^ 2 


+ (A>7) 2 


dVQ) 


+ (A>j) 4 


d 2 (JQ) 

dr , 2 

dVQ) 

dS 


For cases run with artificial viscosity, therefore, the residual should include the explicit artificial viscosity 
terms. The implicit terms do not appear, since they difference AQ, and in the steady form of the equations 

A 

AQ = 0. Since the explicit artificial viscosity terms are added to the source term for the first ADI sweep, 
they are automatically included in the residual. 

Three measures of the residual are computed for each governing equation - the Lz norm of the residual, 
the average absolute value of the residual, and the maximum absolute value of the residual. In addition, 
the (£,>7) indices corresponding to the location of the maximum residual are saved. The L 2 norm of the 
residual is defined as 


32 See equation (8.5a) in Volume 1. For first-order time differencing, 0 2 = = 0. 

33 These equations represent the use of the constant coefficient artificial viscosity model. The nonlinear coefficient 
model is more complicated, but the same principle applies. 
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MIM" 

In computing the residuals, the summations, maximums, and averages are over all interior grid points, plus 
points on spatially periodic boundaries. 

For cases run with artificial viscosity, subroutine RESID is called from EXEC both before and after the 
artificial viscosity terms have been added to the equations. The residuals are thus computed both with and 
without the artificial viscosity terms. This may provide some estimate of the overall error in the solution 
introduced by the artificial viscosity. Convergence is determined by the residuals with the artificial viscosity 
terms included. 

In addition to computing the residuals, subroutine RESID writes the convergence history file. The 
contents and format of this file are described in detail in Section 4.3 of Volume 2. 

Remarks 


1. The Cray BLAS routines SXRM2 and SASUM are used in computing the L 2 norm of the residual and 
the average absolute value of the residual, respectively. The Cray search routine IS AM AX is used in 
computing the maximum absolute value of the residual. 

2. The scratch array DUMMY, from the common block DUMMY 1, is used to store the values of the 
residual at each grid point. 
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Subroutine REST (IOPT) 


Called by 

Calls 

Purpose 

INITC 

MAIN 

METS 

Read and/or write restart file. 


Input When Reading the Restart File 


* GAMR 

* HSTAG 


* IHSTAG 
IOPT 

* ITURB 

* NRQIN 

* NRXIN 
RGAS 


Reference ratio of specific heats, y r . 

Stagnation enthalpy hr used with constant stagnation enthalpy 
option. 

Flag for constant stagnation enthalpy option. 

Flag specifying I/O operation; 1 to read, 2 to write. 

Flag for turbulent flow option. 

Unit number for reading the restart flow field. 

Unit number for reading the restart computational mesh. 
Dimensionless gas constant R. 


Input When Writing the Restart File 


E, KE 


EL, KEL 

IOPT 

IT 

* ITURB 

* MACHR 

* NRQOUT 

* NRXOUT 

* N1.N2 

* RER 

RHO, U, V, W, ET 


RHOL, UL, VL, WL, ETL 


TAU 
X, Y 


Turbulent dissipation rate e and kinetic energy k at time level 

/!+ 1 . 

Turbulent dissipation rate t and kinetic energy k at time level n . 
Flag specifying I/O operation; 1 to read, 2 to write. 

Current time step number n. 

Flag for turbulent flow option. 

Reference Mach number A/,. 

Unit number for writing the restart flow field. 

Unit number for writing the restart computational mesh. 

Number of grid points A'i and A r 2 , in the £ and r? directions. 
Reference Reynolds number Re r . 

Static density p, velocities w, v, and w, and total energy E r at time 
level /2+1- 

Static density p, velocities u, v, and w, and total energy E r at time 
level n. 

Computational time t at time level n + 1. 

Cartesian coordinates x and y , or cylindrical coordinates x and r. 


Output When Reading the Restart File 


DXI, DETA 
E, KE 


Computational grid spacing A£ and Arj. 


Turbulent dissipation rate e and kinetic energy k at time level 
ITBEG. 
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EL, KEL 

ITBEG 
MAC HR 
M, N2 
RER 

RHO, U, V, W, ET 

RHOL, UL, VL, WL, ETL 

T, TL 
TAU 
X, Y 


Turbulent dissipation rate t and kinetic enersy k at time level 
ITBEG- 1. 

The time level n at the beginning of the new run. 

Reference Mach number M r . 

Number of grid points N\ and ;V 2 , in the £ and r\ directions. 
Reference Reynolds number Re r . 

Static density p, velocities u, v } and w, and total energy E r at time 
level ITBEG. 

Static density p, velocities v, and w, and total energy r Ej at time 
level ITBEG- 1. 

Static temperature T at time levels ITBEG and ITBEG — 1. 
Computational time t at time level ITBEG. 

Cartesian coordinates x and y, or cylindrical coordinates jc and r 


Output When Writing the Restart File 

None. 


Description 

Subroutine REST reads and/or writes the restart files. Restarting a calculation requires two unformatted 
files - one containing the computational mesh and one containing the flow field. 

If subroutine REST is being used to read the restart files, the computational mesh is first read from unit 
NRXIN. The grid increments A£ and A rj are then set, and subroutine METS is called to compute the 
metric coefficients and the Jacobian of the grid transformation. 

The flow field file is read next, from unit NRQIN. It normally contains the results at the last two time 
levels that were computed during the previous run. If only one level is present in the file, however, the re- 
sults at level n — 1 are set equal to those at level n. If the previous run used the two -equation turbulence 
model, the turbulence variables are also read from the file. The beginning time level for Lhe time marching 
loop is set equal to the level stored in the restart file. The flow field variables in the restart file are the 
conservation variables Q, nondimensionalized as in the plotting program PLOT3D. 34 They therefore must 
be converted into the primitive variables used in Proteus . The temperature is then computed from the 
perfect gas equation of state, with c p and c„ defined using the input reference conditions. 

When writing the restart files, the file containing the computational mesh is written onto unit 
NRXOUT. The primitive flow variables are then redefined as conservation variables and 
nondimensionalized as in PLOT3D. They are then written onto unit NRQOUT. If the current run used 
the two-equation turbulence model, the turbulence variables are also written into the file. 

Remarks 

1. If, in the input namelist RSTRT, NRXOUT and NRQOUT are set equal to NRXIN and NRQIN, 
respectively, the output restart files will overwrite the input restart files. 

2. Except for the turbulence variables and the variables at time level n — 1, the restart files have the same 
format as the XYZ and Q files created using the I PLOT = 2 and 3 options. These restart files can thus 
also be used as XYZ and Q files for the PLOT3D plotting program. Since N3 = 1, the n — 1 level will 
not be read by PLOT3D. 


34 See Sections 4.2.3 and 4.4 of Volume 2. 
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3. The temperature T is computed using the equation of state, which contains a specific heat coefficient 
(either c„ or c„ depending on whether the stagnation enthalpy is assumed constant or not.) In sub- 
routine REST, a constant value of specific heat is used, consistent with the reference temperature T,. 
If the user specified constant specific heat (i.e., a value for y, was read in), this is not a problem. 
However, if the temperature-dependent specific heat option is being used (i.e., a value for y, was not 
read in), the equation of state and the empirical equation for specific heat are coupled. For this reason, 
in INITC (the routine that calls REST), T is recomputed by calling EQSTAT after the specific heats 
have been computed in FTEMP. Ideally, this coupling would be handled by iteration between 
FTEMP and EQSTAT. This is not currently done in Proteus, however. 
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Subroutine ROBTS (NP,A,B,XP) 


Called by 

Calls 

Purpose 

PAK 


Pack points along a line using Roberts transformation. 


Parameter a in Roberts transformation formula specifying lo- 
cation of packing: 0.0 to pack near XP = 1 only, 1.0 to pack near 
XP = 0 only, and 0.5 to pack equally at XP = 0 and 1.0. 

Parameter /? in Roberts transformation formula specifying amount 
of packing. A value approaching 1.0 from above gives denser 
packing. 

Number of grid points along the line. 


Coordinates of packed grid points along the line. 


Subroutine ROBTS packs points along a line of length one using a transformation due to Roberts 
(1971). The basic transformation is given by 

(/? + - jS + 2a 


(2a + l)(l + fir* 


where 


and x P and x VP are the packed and unpacked (i.e., evenly spaced) coordinates along the line. The parameter 
a determines the packing location. For a = 0, the points will be packed only near x P = 1, and for a = 1/2 
the points will be packed equally near x P = 0 and x P = 1 . The packing parameter /? determines the amount 
of packing. It is a number greater than 1, but generally 1.1 or below. The closer /? is to 1, the tighter the 
packing will be. 

It may seem logical to set a — 1 to pack points near x P = 0. With the basic transformation, however, 
this doesn't work. In Proteus we get around this problem by replacing a in the above transformation with 
where a w = a if a = 0 or 1/2, and a w = 0 if a = 1. If a = 0 or 1/2, no further action is necessary. If 
a = 1, however, we must invert the resulting x P values and re-order the indices. I.e., for / = 1 to NP, we set 

Mi = i - (*/>)/ 

After this operation, the array x P j will run from 1 to 0, packed near 1. To re-order the indices, for / = 1 to 
NP we set 

( x p)np ~ + i = ( x Pi)i 

After this operation, x P will run from 0 to 1, packed near 0. 
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Finally, to ensure round-off error doesn't affect the endpoint values, we set (x F )i = 0 and (xp)sp = 1. 


Remarks 

1. The namelist input variable SQ(IDIR,1), which is used to specify the packing location in direction 
IDIR, is actually equal to 1 — a. Therefore, setting SQ(IDIR,1) = 0 results in packing near the l or 
rj = 0 boundary', and SQ(1DIR,1) = 1 results in packing near the c or rj = 1 boundary. 
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Function SASUM (N,V,INC) 


Called by 

Calls 

Purpose 

RESID 


Compute the sum of the absolute values of the elements of a vector. 


Number of elements in the vector to be summed. 

Vector to be summed. 

Skip distance between elements of V. For contiguous elements, 
INC = 1. 


Output 

SASUM Sum of the absolute values of the elements of V. 

Description 

Function SASUM computes the sum of .the absolute values of the elements of a vector. For a one- 
dimensional vector, the use of SASUM is straightforward. For example, 


sasumCnp 


,v,l)=X 


A starting location can be specified, as in 


n(np-4,v(5),l) = ^ V/ 


Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory, and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDIM2, then 


ndiml ndim2 


sasumC ndiml*ndim2 


■».!>= z z 


i = i ;=i 

One dimension at a time can also be summed. For example, 


sasumCndiml 


liUUU 1 

,a( 1 ,5) , 1 ) = Yj As 


Similarly, by specifying a skip increment, 


sasum( ndim2 ,a( 5 , 1 ) , ndiml ) = V 


Remarks 

1. SASUM is a Cray BLAS (Basic Linear Algebra Subprograms) routine (Cray Research, Inc., 1989b). 
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Subroutine SGEFA (A, LDA, N, IPVT, INFO) 

Called by 

Calls 

Purpose 

BCELIM 

BVUP 

ISAMAX 

Factor a matrix using Gaussian elimination. 


Input 

A An array containing the matrix A to be factored, dimensioned as 

A(LDA,N). 

LDA The leading dimension of the array A. 

N The order of the matrix A. 


Output 

A An upper triangular matrix and the multipliers which were used 

to obtain it. The factorization can be written as A = LU, where 
L is a product of permutation and unit lower triangular matrices, 
and L is upper triangular. 

IPVT A vector of length N containing pivot indices. 

INFO An error flag: 0 for normal operation, k if \J kk = 0. 

Description 

Subroutine SGEFA is used in combination with subroutine SGESL to solve the matrix equation 
Ax = B. If the Fortran arrays A and B represent A and B, where A is a square N by N matrix and B is a 
matrix (or vector) with NCOL columns, and if the leading dimension of the Fortran array A is LDA, then 
the Fortran sequence 


call sgefa (a, lda,n,ipvt, inf o) 
do 10 j = 1 ,ncol 

call sgesl (a, lda,n ,ipvt,b( 1 , j) , 0) 

10 continue 

computes A' l B, storing the result in B. 

Remarks 

1. SGEFA is a Cray LINPACK routine (Cray Research, Inc., 1989b; Dongarra, Moler, Bunch, and 
Stewart, 1979). 
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Subroutine SGESL (A,LDA,N T , IPVT, B, JOB) 

Called by 

Calls 

Purpose 

BCELIM 

BVUP 


Solve the matrix equation Ax = B or A T x = B using the factors com- 
puted by SGEFA. 


A 


B 

I PVT 
JOB 

LDA 

N 

Output 

B 


The two-dimensional output array A from SGEFA containing the 
factorization of matrix A. 

The right-hand side vector B. 

The output array IPVT of pivot indices from SGEFA. 

Flag specifying type of matrix equation: 0 to solve Ax = B; non- 
zero to solve A T x = B. 

The leading dimension of the array A. 

The order of the matrix A. 


The solution vector x. 


Description 

Subroutine SGESL is used in combination with subroutine SGEFA to solve the matrix equation 
Ax = B. See the description of subroutine SGEFA for details. 


Remarks 

1. SGESL is a Cray LINPACK routine (Cray Research, Inc., 1989b; Dongarra, Moler, Bunch, and 
Stewart, 1979). 
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Function SNRM2 (N,V,INC) 

Called by 

Calls 

Purpose 

RESID 


Compute the L 2 norm of a vector. 

Input 



N 

V 

INC 


The number of elements in the vector V. 

The vector whose norm is to be computed. 

Skip distance between elements of V. For contiguous elements, 
INC — 1. 

Output 

SNRM2 


The L 2 norm of the vector V. 


Description 


Function SNRM2 computes the norm of a vector. For a one-dimensional vector, the use of SNRM2 
is straightforward. For example, 


snrm2( np , v , 1 ) 




1/2 


A starting location can be specified, as in 


snrm2(np-4 , v( 5) , 1 ) 




1/2 


Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory, and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDIM2, then 


snrm2(ndiml*ndim2 , a , 1 ) 



1/2 


One dimension at a time can also be summed. For example, 


snrm2(ndiml , a( 1 , 5) , 1 ) 



1/2 


Similarly, by specifying a skip increment, 
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1/2 


snrm2(ndim2 ,a( 5 , 1 ) , ndiml ) 



Remarks 

1. SNRM2 is a Cray BLAS (Basic Linear Algebra Subprograms) routine (Cray Research, Inc., 1989b). 


246 4.0 Proteus Subprograms: SNRM2 


Proteus 2-D Programmer's Reference 



Subroutine TBC 

Called by 

Calls 

Purpose 

MAIN 


Set time-dependent boundary condition values. 


Input 

* GTBC1, GTBC2 
IT 

ITBEG 

ITEND 

* JBC1, JBC2 

* JTBCi, JTBC2 
NBC 

NEQ 

* NOUT 

* NTBC 

* NTBCA 


* Nl, N2 

Output 

FBC1, FBC2 

GBC 1 , GBC2 


Time-dependent surface mean flow boundary' condition values for 
the £ and rj directions. 

Current time step number n . 

The time level n at the beginning of a run. 

Final time step number. 

Surface mean flow boundary condition types for the £ and rj di- 
rections. 

Flags for type of time dependency for mean flow boundary con- 
ditions in the £ and y\ directions. 

Dimensioning parameter specifying number of boundary condi- 
tions per equation. 

Number of coupled equations being solved, N eq . 

Unit number for standard output. 

Number of values in tables for general unsteady boundary condi- 
tions. 

Time levels at which general unsteady boundary conditions are 
specified. 

Number of grid points Ai and N 2 , in the £ and 17 directions. 


Point-by-point mean flow boundary condition values for the f 
and y] directions. 

Surface mean flow boundary condition values for the £ and rj di- 
rections. 


Description 


Subroutine TBC sets time -dependent mean flow boundary condition values. Two types of time de- 
pendency are allowed - general and periodic. 


General Time-Dependent Boundary Conditions 


General time -dependent boundary conditions are set using linear interpolation on an input table of 
boundary condition values vs. time level. Thus, the boundary condition value is 




n x 


i 

n r 



Here n is the current known time level in the time marching scheme, g t and n t represent the input table of 
boundary condition values vs. time level, and i is the index in the table for which 


Proteus 2-D Programmer's Reference 


4.0 Proteus Subprograms: TBC 247 







If n + 1 < n}, then g n + 1 is set equal to the first value in the table, g}. Similarly, if n + 1 > /z? v , where N is the 
index of the last entry in the table, then g n ^ 1 is set equal to the last value in the table, g{*. 


In Fortran, g — GBC 1 or GBC2, g t = GTBC1 or GTBC2, n : = NTBCA, and N= XTBC. 
Time-Periodic Boundary Conditions 

Time-periodic boundary 7 conditions (not to be confused with spatially periodic boundary conditions) are 
of the form 

/ + 1 =^+^sin[^+l) + g f 4 ] 

where g] through gt are given by the first four elements of GTBC1 or GTBC2. 

Remarks 

1. An error message is generated and execution is stopped if an invalid type of unsteadiness is requested 
for the boundary values. 
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Subroutine TIMSTP 


Called by 

Calls 

Purpose 

MAIN 

ISAMAX 

Set computational time step. 


CFL number in IDTAU = 1, 2, 5, 6, 8, and 9 options. 

Minimum and maximum CFL numbers allowed in IDTAU = 2 
and 6 options. 

Maximum change in absolute value of the dependent variables 
over previous time step (or NITAVG — 1 time steps if 
ICTEST = 2), AQ m „. 

Minimum and maximum change, in absolute value, that is al- 
lowed in any dependent variable before increasing or decreasing 
At in IDTAU = 2, 4, and 6 options. 

Specific heats c p and c v at time level n. 

Time step At in IDTAU = 3 and 4 options. 

Old computational time step At. 

Factors multiplying or dividing At if solution changes too slowly 
or quickly in IDTAU = 2, 4, and 6 options. 

Minimum and maximum At allowed in IDTAU = 4 option, or 
used in IDTAU = 7 option. 

Computational grid spacing Af and A rj. 

Metric coefficients rj y (or rj r if axisymmetric), and 

Flag for time step selection method. 

Current time step number n. 

Current time step sequence number. 

Effective coefficient of viscosity p. at time level n. 

Number of time steps per cycle for IDTAU = 7 option. 

Number of coupled equations being solved, N e9 . 

Unit number for standard output. 

Number of grid points N\ and N 2 , in the f and */ directions. 
Reference Reynolds number Re r . 

Gas constant R. 

Static density p, and velocities u and v, at time level n. 

Static temperature T at time level n. 

Metric coefficients £ x , ^ (or if axis>mmetric), and £ f . 

New CFL number in IDTAU = 2 and 6 options. 

New computational time step At. 
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Description 

Subroutine TIMSTP computes the time step size At. The following sections describe the various 
methods currently available for setting and/or modifying At. 

IDTAU = 1_ 

This option sets a global (i.e., constant in space) time step At equal to the minimum of the values at 
each grid point computed from the input parameter CFL(ITSEQ). I.e., 

At = (CFL) min(AT c n) 
i>j 

where At c// is the inviscid CFL limit, given in generalized two-dimensional coordinates as (Shang, 1984). 



Here U = c, + c^u + £ y v and V=rj,+ r\ x u + >/,.v are the contravariant velocities without metric normaliza- 
tion, and a — JyRT is the speed of sound. 

IDTAU = 2 

For the first time step, this option is identical to the IDTAU = 1 option. After the first time step, 
however, CFL is modified to keep AQ mcx , the maximum change in absolute value of the dependent vari- 
ables, within user-specified limits. The rules used to increase or decrease CFL may be summarized as fol- 
lows: 


AQ m ax < CHG1 => CFL = min[(DTFl)(CFL), CFLMAX] 

AQ majt > CHG2 => CFL = max[CFL/DTF2, CFLMIN] 

AQmajc >0.15 => CFL = CFL/2 

The time step At is then set using the same formulas as in the IDTAU = 1 option. 

IDTAU = 3 

This option sets a global (i.e., constant in space) time step At equal to the input parameter DT(ITSEQ). 
IDTAU = 4 

For the first time step, this option is identical to the IDTAU = 3 option. After the first time step, 
however, At is modified to keep AQ m „, the maximum change in absolute value of the dependent variables, 
within user-specified limits. The rules used to increase or decrease At may be summarized as follows: 

AQ^^^cCHGl => At = min[(DTFl)AT, DTMAX] 

AQmax > CHG2 => At = max[AT/(DTF2), DTMIN] 

AQmax >0.15 => At = At/2 


IDTAU = 5 

This option sets a local (i.e., varying in space) time step At computed at each grid point from the input 
parameter CFL(ITSEQ). I.e., at each grid point, 

At = (CFL)AT f yj 

where At c/7 is given above in the description of the IDTAU = 1 option. 
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IDT A U = 6 


For the first time step, this option is identical to the IDTAU = 5 option. After the first time step, 
however, CFL is modified to keep AQ,™*, the maximum change in absolute value of the dependent vari- 
ables, within user-specified limits. The rules used to increase or decrease CFL are the same as in the 
IDTAU = 2 option. 

IDTAU = 7 


This option sets a global (i.e., constant in space) time step At with logarithmic cycling. The formula 
used is 


At — At„ 


At„ 


At„ 




w'here N = mod(n — 1, N cyc ) and n is the current known time level. The time step At is thus cycled repeat- 
edly between A? mtn and A r max every N cyc time steps. The values of Ar mm) AT m<7X , and N cyc are given by the 
input parameters DTMIN, DTMAX, and NDTCYC. 


IDTAU = 8 


This option sets a local (i.e., varying in space) time step At computed at each grid point using the pro- 
cedure of Knight and Choi (1989). The in viscid CFL limit At^ is first computed separately for each 
computational coordinate direction. Thus, at each grid point, 



Here U = T + C* ,v and V = y\ t + rj x u + r\ y v are the contravariant velocities without metric normaliza- 
tion, and a = JyRT is the speed of sound. 

A preliminary value of At is then defined at each grid point using the input parameter CFL(ITSEQ). 

At 0 = (CFL) min[(AT cy7 )j, (A-r^] 


The final value of At is then defined at each grid point as 

At = max[Ar 0 , (At^] 


Knight and Choi found that using this definition for At, rather than simply setting At = At 0 , resulted in 
faster convergence for problems with refmed grid regions. This formulation assumes that flow is generally 
in the £ direction. 


IDTAU = 9 


This option is similar to the IDTAU = 8 option. The only difference is a viscous correction added to 
the definitions of the inviscid CFL limits, similar to that used by Cooper (1987). The inviscid CFL limits 
are now defined at each grid point as: 
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( A v){ = 


u 

Ac 


+ a- 


\/ ll + €y 2 fl Zx + £ 

. v "T" n 


A£ 


* e r P (A£) 2 


- 1 


(A r cfl\ 


V 

Ar, 


+ a 


/ 2 .2 2,2 

\ ,r )x + r ly 2 M Vx + ly 


A>? 


+ 


Re r P (Arj) 2 


The rest of the procedure for computing At is the same as in the IDTAU = 8 option. 


Remarks 


1. 


In AQ m „, used in the IDTAU = 2, 4, and 6 options, the change in E T has been divided by 
Rj( Yr — 1) + 1/2. This is equivalent to dividing the dimensional value E T by 


E 


T~ 


Pr RT r p r u 2 

y,-l 2 


This makes the change in total energy the same order of magnitude as the other conservation variables. 

2. An error message is generated and execution is stopped if an illegal time step selection option is re- 
quested. 

3. A warning message is printed with the IDTAU — 2, 4, and 6 options if At or the CFL number is cut 
in half because AQ max >0.15. 

4. The Cray search routine ISAMAX is used in computing the maximum value of AQ„„ for all the 
equations. 
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Subroutine TREMAIN (CPUREM) 

Called by 

Calls 

Purpose 

MAIN 


Get CPU time remaining for the job. 


Input 

None. 

Output 

CPUREM 


Amount of CPU time remaining, in seconds. 


Description 

Subroutine TREMAIN computes the amount of CPU time remaining for the current job, in seconds. 

Remarks 

1. TREMAIN is a Cray Fortran library routine (Cray Research, Inc., 1989a). 
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Subroutine TURBBL 

Called by 

Calls 

Purpose 

IMTC 

KEINIT 

MAIN 

BLIN1 

BLIN2 

BLOUT1 

BLOUT2 

VORTEX 

Manage computation of turbulence parameters using Baldwin- Lomax 
algebraic model. 


Input 

CP 

* ITETA, ITXI 

* KBC1, KBC2 

* LWALL1, LWALL2 
LWSET 


MU, LA, KT 

* NOUT 

* Nl, N2 

PRR 

* PRT 

* RER 

* REXT1, REXT2 
RHO, U, V, W 
X, Y 

Output 

LWALL1, LWALL2 
MU, LA, KT 
MUT 


Specific heat c p . 

Flags for computation of turbulent viscosity along constant rj and 
£ lines. 

Boundary types for the £ and r\ directions. 

Flags specifying wall locations for f and rj boundaries. 

Flags specifying how wall locations are to be determined for the 
turbulence model; 0 if wall locations are to be found automatically 
by searching for boundary points where the velocity is zero, 1 if 
input using the LWALL parameters, 2 if input using the IWALL 
parameters. 

Laminar coefficient of viscosity ju /} laminar second coefficient of 
viscosity and laminar coefficient of thermal conductivity k h 

Unit number for standard output. 

Number of grid points N\ and N 2 , in the £, and rj directions. 
Reference Prandtl number Pr r . 

Turbulent Prandtl number Pr u or, if PRT < 0, a flag indicating the 
use of a variable turbulent Prandtl number. 

Reference Reynolds number Re r . 

Transition Reynolds numbers Re Xtr in the £ and y\ directions. 
Static density p, and velocities w, v, and w. 

Cartesian coordinates x and y, or cylindrical coordinates x and r. 


Flags specifying wall locations for £ and r\ boundaries, if not set 
in input. 

Effective coefficient of viscosity p, effective second coefficient of 
viscosity A, and effective coefficient of thermal conductivity k. 

Turbulent viscosity coefficient /i f . 


Description 

Subroutine TURBBL manages the computation of the effective coefficient of viscosity, second coeffi- 
cient of viscosity, and coefficient of thermal conductivity using the algebraic eddy viscosity model of 
Baldwin and Lomax (1978). It is called from MAIN during each step from time level n to n + 1, but after 
the governing flow equations have been solved. The Fortran variables RHO, U, etc., are thus at the n + 1 
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level. The effective viscosity coefficient to be computed will therefore also be at the n 4- 1 level. This, of 
course, becomes the known n level for the next time step. 

The steps involved in computing the effective coefficients are as follows: 

1. Initialize the arrays for storing the turbulent viscosity \x t on constant £ and >7 lines to zero. 

2. Call VORTEX to compute | Q | , the magnitude of the total vorticity vector. 

3. At each £ location, compute fi t due to walls at rj = 0 and/or rj = 1, or due to a free turbulent flow in 
the £ direction, using steps 3a - 3c. The result will be stored in the Fortran array MUT. If bypassing 
the calculation on constant £ lines, skip to step 4 to compute fi t on constant >7 lines. 

3a. Determine wall locations by checking for zero velocity at the r\ boundaries, unless wall locations 
are user- specified via the input LWALL or IWALL parameters, or unless boundary types are 
specified using the KBC parameters. 

3b. Call BLOUT1 to compute (j* t ) ou ter, at the current £ location, for rj = 0 to 1. 

3c. Call BLIN1 to compute at the current £ location, within the inner region for a solid wall 

at rj = 0 and/or >7 = 1. 

4. At each y\ location, compute fi r due to walls at £ — 0 and/or £ = 1, or due to a free turbulent flow in 
the r\ direction, using steps 4a - 4c. The result will be stored in the Fortran array DUMMY. If by- 
passing the calculation on constant rj lines, skip to step 5. 

4a. Determine wall locations by checking for zero velocity at the £ boundaries, unless wall locations 
are user- specified via the input LWALL or IWALL parameters, or unless boundary types are 
specified using the KBC parameters. 

4b. Call BLOUT2 to compute (filter, at the current rj location, for £ = 0 to 1. 

4c. Call BLIN2 to compute (fit)^, at the current y\ location, within the inner region for a solid wall 
at £ = 0 and/or £ = 1. 

5. If the input is such that the computation of fi t is bypassed in both directions, write an error message 
and stop. 

6. If fi t is being computed on constant £ lines only, then MUT = fi u so skip to step 9. 

7. If fi t is being computed on constant rj lines only, then DUMMY = fi t1 so set MUT = DUMMY and 
skip to step 9. 

8. If fi t is being computed both on constant £ lines and constant vj lines, compute a single fi t value at each 
grid point using the averaging formula presented in equation (9.13) of Volume 1. 

9. If specified in the input, modify fi t to account for laminar-turbulent transition using a model based on 
one given by Cebeci and Bradshaw (1984). This model is described in Section 9.1.4 of Volume 1. 

10. Define the necessary effective coefficients as follows: 


M + Mr 
/-= 2 / 4 - X t 
k = kf+ k t 

where ?. t = - 2/z r /3, and k t is computed using Reynold's analogy as 


K = 


pf P 

Pr, 


Pr r 


The turbulent Prandtl number is either a constant specified in the input, or a variable computed using 
equation (9.19) of Volume 1. 
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Remarks 


1. In the averaging formula used when \i x is computed both on constant £ lines and constant ^ lines, the 
Fortran variables FI and F2 are 


FI = 


(y*h 

[<*)? + <*)i ] 1/2 


F2 = 


(r„)i 

[0*)i + (y n )l] 112 


If (y n )i and (y n ) 2 are both close to zero, FI and F2 are set equal to 1/^/T, wdiich is the limiting value in 
the above equations as (y„)i and (y n ) 2 approach zero. 

2. The exponent in the definition of y tr is limited to 20. 

3. In the Fortran equation for the effective thermal conductivity, the factor PRR = Pr r is necessary for 
proper nondimensionalization of k t . 

4. The distance used in the formula for y tr is a straight-line distance from one point to another. It w r ould 
probably be better to compute a curvilinear distance along the coordinate line. 

5. The scratch array DUMMY, from the common block DUMMY 1, is used to store the value of the 
turbulent viscosity along constant y\ lines. The array is filled in subroutines BLIN2 and BLOUT2. 

6. If ITXI and ITETA are both zero, indicating the turbulent viscosity computation is to be bypassed for 
both coordinate directions, an error message is generated and execution is stopped. 
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Subroutine TURBCH 


Called by 

Calls 

Purpose 

MAIN 

EXECT 

PRODCT 

YPLUSN 

Manage computation of turbulence parameters using the Chien k-t 
model. 


Input 


CP 

♦ KBC1, KBC2 

* LWALL1, LWALL2 
LWSET 


MU, LA, KT 

MUT 

* NTKE 

* N1,N2 
PRR 

* PRT 

U, V, W 

Output 

L WALL I, LWALL2 


MU, LA, KT 


MUT 


Specific heat c p . 

Boundary types for the £ and rj directions. 

Flags specifying wall locations for £ and */ boundaries. 

Flags specifying how wall locations are to be determined for the 
turbulence model; 0 if wall locations are to be found automatically 
by searching for boundary points where the velocity is zero, 1 if 
input using the LWALL parameters, 2 if input using the IWALL 
parameters. 

Laminar coefficient of viscosity fi h laminar second coefficient of 
viscosity and laminar coefficient of thermal conductivity k t . 

Turbulent viscosity fi t at time level n. 

Number of k-t iterations per mean flow iteration. 

Number of grid points N\ and i V 2 , in the £ and y\ directions. 

Reference Prandtl number Pr T . 

Turbulent Prandtl number Pr t , or, if PRT < 0, a flag indicating the 
use of a variable turbulent Prandtl number. 

Velocities u y v, and w at time level n. 


Flags specifying wall locations for £ and r\ boundaries, if not set 
in input. 

Effective coefficient of viscosity pi, effective second coefficient of 
viscosity /, and effective coefficient of thermal conductivity k. 

Turbulent viscosity p* r at time level n. 


Description 

Subroutine TURBCH manages the computation of the effective coefficient of viscosity, second coeffi- 
cient of viscosity, and coefficient of thermal conductivity using the low Reynolds number k-t two-equation 
turbulence model of Chien (1982). The k-t equations are uncoupled from the mean flow equations, lagged 
in time and solved separately. This allows maximum modularity in turbulence modeling. 

For each step from time level n to n+ 1, the mean flow equations are solved first, using a time step 
At. The k-t equations are then solved, using NTKE time steps with a time step size of TFACT(At). 

The steps involved in computing the effective coefficients are as follows: 
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1. Determine wall locations by checking for zero velocity at the boundaries, unless wall locations are 
user- specified via the input LWALL or IWALL parameters, or unless boundary 7 types are specified 
using the KB C parameters. 

2. Call YPLUSN to compute the minimum distance to the nearest solid wall and y*. To save storage, the 
minimum distance is returned in the Fortran variable DUMMY. 

3. Call PRODCT to compute the production rate of turbulent kinetic energy. To save storage space, the 
production rate is returned in the Fortran variable VORT. 

4. Call EXECT to advance the k-t equations in time using a time step of TFACT(At). 

5. Repeat steps 3-4 NTKE times. 

6. Define the necessary effective coefficients as follows: 

M = M/ + Mr 
X = X { 4- k t 
k — ki+ k t 

wdiere X t = — 2/x f /3, and k t is computed using Reynold's analogy as 


k = — Pr 

** Pr t 

The turbulent Prandtl number is either a constant specified in the input, or a variable computed using 
equation (9.19) of Volume 1. 


Remarks 

1. The scratch array DUMMY, from the common block DUMMY 1, is used to store the values of the 
minimum distance to the nearest wall. The array is filled in subroutine YPLUSN. 

2. The Fortran array VORT, from the common block TURB1, is used to store the values of the pro- 
duction rate of turbulent kinetic energy. The array is filled in subroutine PRODCT. 

3. For equal mean flow and k-z time steps, use TFACT = 1/NTKE. 
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Subroutine UPDATE (S,NVD,NPTSD) 


Calls 


Base index and multiplication factor used in computing one- 
dimensional index for two-dimensional array. 

Flag for constant stagnation enthalpy option. 

Flag for swirl in axisymmetric flow. 

Index in the 'Vectorized" direction, / v . 

Inverse Jacobian of the nonorthogonal grid transformation, J~K 

Number of grid points in the sweep direction, N . 

Array indices associated with the dependent variables p, pu , pv, 
pw, and £r- 

Leading tw'o dimensions for the array S. 

Static density p, velocities u , v, and w, and total energy Er at time 
level n. 

A 

Computed solution subvector, AQ. 

Static density p, velocities w, v, and w, and total energy E r at end 
of current ADI sweep. 

Subroutine UPDATE computes the primitive flow variables from the dependent variables AQ after each 
ADI sweep. For the first sweep the formulas are 

p = p n + Jaq] 

u = — (p u +JAQ 2 ) 

p 

* 1 / n n . r A AV 

v = — (p V +JAQ 3 ) 

P 

w =A(pV+/Aa) 

p 

Et=Ej + JAQ s 



Called by 
EXEC 


Purpose 

Update flow^ variables after each ADI sw*eep. 
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where A(9i through AQ S are the dependent variables in delta form for the five governing equations. 15 For the 
second ADI sweep, the superscript * should be changed to n+ 1 on p, u, v, w, and E r , and to n on A Q. 

Remarks 


1. This subroutine uses one-dimensional addressing of two-dimensional arrays, as described in Section 2.3. 


15 These formulas are written for the most general case - axisymmetric flow' with swirl and non -constant stagnation 
enthalpy. For simpler cases there may be only three or four equations. 
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Subroutine UPDTKE 

Called by 

Calls 

Purpose 

EXECT 


Update k and t after each ADI sweep. 


Input 


DXI, DETA 

Computational grid spacing A 5 and At]. 

E 

Turbulent dissipation rate t at time level n. 

FBCT1, FBCT2 

Point -by-point k-t boundary condition values for the £ and v\ di- 
rections. 

1BCT1, IBCT2 

Point-by-point k-t boundary condition types for the £ and rj di- 
rections. 

JI 

Inverse Jacobian of the nonorthogonal grid transformation, J~K 

KBCPER 

Flags for spatially periodic boundary conditions in the £ and rj 
directions. 

KE 

Turbulent kinetic energy k at time level n. 

NPT1, NPT2 

N\ and N 2 for non-periodic boundary conditions, N\ + 1 and 
N 2 + 1 for spatially periodic boundary conditions in £ and rj. 

RHO 

Static density p at time level n . 

S 

A 

Computed solution subvector AW. 

Output 

E, EL 

Turbulent dissipation rate t at time levels n -f 1 and n. 

KE, KEL 

Turbulent kinetic energy k at time levels n 1 and n. 


Description 

Subroutine UPDTKE computes the primitive flow variables k and t from the dependent variables 
AYV n after a complete time step. The formulas are 

k n + 1 = — l — (p n + x k n + JAW?) 

n + 1 xr 17 

P 

i + 1 = (p n + V + JAW?) 

P 

A A 

where AW\ and A W 2 are the dependent variables in delta form for the k-t equations. 

Subroutine UPDTKE also explicitly computes the k and t values on the computational boundaries 
using the specified boundary conditions, as described below. 

No Change From Initial Conditions , Ak = 0 and; or As — 0 

Values for k and t are simply not updated. Therefore, their values on the boundaries remain the same 
as their initial or restart values. 
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Specified values, k = f and or c = f 

Values of k and t are simply set equal to the specified values. 

Specified Two-Point Gradient in Coordinate Direction , dkjdcfr = f and or dzld<j> = f 

Applying dkjd(j> = /at the £ = 0 boundary, and using two-point one-sided differencing, gives 

k \,j= k 2J-M 

At the £ = 1 boundary , 

J ~ 

.Analogous equations can easily be written for the rj boundaries, and for dtjd4> = f 

Specified Three- Point Gradient in Coordinate Direction , dk/d4> = f and! or dzld<t> ~ f 

Applying dkjd4> = / at the £ = 0 boundary, and using three-point one-sided differencing, gives 

(4k 2 j-k 3J -2fA£) 

*W = 3 

At the £ = 1 boundary, 

(* A r,- 1 j-*v 1 - 2 > y + 2/A£) 

k N\.J- 3 

Analogous equations can easily be written for the rj boundaries, and for dsld<f> =f 
Linear Extrapolation 

Linearly extrapolating from the interior points for k at the £ = 0 boundary gives 

k\j - 2*2 j " *3 f y 

At the £ = 1 boundary, 

k \\,j = 2 ^.V 1 - W - *AT, - 2,j 

Analogous equations can easily be written for the yj boundaries, and for linear extrapolation of i. 

Remarks 

L The "no change from initial conditions" boundary condition is applied simply by non-execution of the 
other boundary' conditions. 

2. Periodic boundary conditions are updated by setting the values of k and s at the lower boundary equal 
to the corresponding values at the upper boundary. 
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Subroutine VORTEX 


Called by 


OUTPUT 

TURBBL 

YPLUSN 



Purpose 


Compute magnitude of total vorticity. 


DXI, DETA 
ETAX, ETAY 
* Nl, N2 
U, V, w 
XIX, XIY 
Y 

Output 

VORT 

Description 


Computational grid spacing and Arj. 

Metric coefficients f] x and rj y (or rj r if axisymmetric.) 
Number of grid points N 1 and A 2 , in the c, and ^ directions. 
Velocities u, v, and w. 

Metric coefficients and £, (or £ r if axisymmetric.) 

Radial coordinate r for axisymmetric flow. 


Total vorticity magnitude. 


Subroutine VORTEX computes the magnitude of the total vorticity vector. For two-dimensional 
planar flow this is defined as 


dv _ du 
dx dy 


and for axisymmetric flow, 


i 5 i=[(-^) :+ (-& )’+(£- 


Note that, for flow without swirl, the definition for axisymmetric flow is the same as for two-dimensional 
planar flow. 

Using the chain rule, these can be rewritten in generalized nonorthogonal coordinates. For two- 
dimensional planar flow, 


Q = I (ijc v i + Vx v ») - (Zy u S + 1 yH ,) 1 


and for axisymmetric flow, 


r- 2 — j t /2 

|^|= \ (Zr w { + ^r w r, + "7" ) + + ^x W r^ + + ^x V r, ~ ^r u \ ~ 

At interior points, the centered difference formula presented in Section 5.0 of Volume 1 is used to nu- 
merically compute the derivatives in the above equations. At boundary points, second-order one-sided 
difference formulas are used. 
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Subroutine YPLUSN 

Called by 

Calls 

Purpose 

INITC 

KEIMT 

TURBCH 

VORTEX 

Compute the distance to the nearest solid wall. 


Flags specifying wall locations for £ and rj boundaries. 

Effective coefficient of viscosity /i. 

Number of grid points N\ and N 2 , in the £ and t] directions. 
Reference Reynolds number Re r . 

Static density p at time level n. 

Total vorticity magnitude. 

Cartesian coordinates x and y , or cylindrical coordinates x and r. 

Output 

DUMMY Distance to the nearest solid wall. 

YPLUSD Nondimensional distance from the nearest solid wall. 

Description 

Subroutine YPLUSN computes the minimum distance to the nearest solid wall and y + for every grid 
point in the computational domain. The steps involved are as followed: 

1. Call VORTEX to compute total vorticity magnitude . 

2. For every grid point in the computational domain, 

3. Compute the shortest distance to each solid wall, and the corresponding wall values of the total 
vorticity magnitude, laminar viscosity, and density. 

4. Identify the nearest solid wall and select the corresponding minimum distance to the wall >>„, the 
wall total vorticity magnitude | ilwcit I , the wall laminar viscosity and the wall density p wc u- 

5. Compute y * using 

R^r I ^wall 1 Pwall 

^wall 



Input 

* LWALL1, LWALL2 
MU 

* Nl, N2 

* RER 
RHO 
VORT 
X, Y 


Remarks 

1. The scratch array DUMMY, from the common block DUMMY 1, is used to store the minimum dis- 
tance to the nearest solid wall. 
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